Zooflow: Save Tokens in Custom searches

GUIs.ZooFlow/Search/SearchLoader.vb

@@ -30,7 +30,7 @@ Namespace Search
             Serializer = New XmlSerializer(GetType(SavedSearch.CustomSearchSerializable))
         End Sub
 
-        Private Function GetSearchDirectoryPath() As String
+        Public Function GetSearchDirectoryPath() As String
             Dim oConfigPath As String = Config.UserConfigPath
             Dim oConfigDirectory As String = IO.Path.Combine(IO.Path.GetDirectoryName(oConfigPath), CUSTOM_SEARCH_DIRECTORY)
 
@@ -54,8 +54,8 @@ Namespace Search
             }
 
             Try
-                Dim oDirectoryPath As String = GetSearchDirectoryPath()
-                Dim oFilePath As String = IO.Path.Combine(oDirectoryPath, Utils.ConvertTextToSlug(pTitle) & ".xml")
+                Dim oSlug = Utils.ConvertTextToSlug(pTitle)
+                Dim oFilePath As String = IO.Path.Combine(GetSearchDirectoryPath(), $"{oSlug}.xml")
                 Dim oBuffer As Byte() = SerializeSearch(oSearch)
 
                 File.WriteAllBytes(oFilePath, oBuffer)