diff --git a/mystic/109to110.pas b/mystic/109to110.pas
index 5399439..c2ea818 100644
--- a/mystic/109to110.pas
+++ b/mystic/109to110.pas
@@ -399,11 +399,11 @@ Begin
   Result := (IoResult = 0);
 End;
 
-Procedure PurgeDataWildcard (WC: String);
+Procedure PurgeWildcard (WC: String);
 Var
   D : SearchRec;
 Begin
-  FindFirst (Config.DataPath + WC, AnyFile, D);
+  FindFirst (WC, AnyFile, D);
 
   While DosError = 0 Do Begin
     If D.Attr AND Directory <> 0 Then Continue;
@@ -1331,11 +1331,15 @@ Begin
   ConvertHistory;      //1.10a11
   ConvertLastOn;       //1.10a11
 
-//  ConvertArchives; //1.10a1
-//  ConvertGroups;   //1.10a1
+  ConvertArchives; //1.10a1
+  ConvertGroups;   //1.10a1
 
-  PurgeDataWildcard('*.lng');
-  PurgeDataWildcard('node*.dat');
+  PurgeWildcard(Config.DataPath + '*.lng');
+  PurgeWildcard(Config.DataPath + 'node*.dat');
+  PurgeWildcard(Config.DataPath + 'wfcscrn.*');
+  PurgeWildcard(Config.SystemPath + 'mcfg.*');
+  PurgeWildcard(Config.SystemPath + 'makelang.*');
+  PurgeWildcard(Config.ScriptPath + '*.mpe');
 
   TextAttr := 12;
   WriteLn;
diff --git a/mystic/install.pas b/mystic/install.pas
index 2803afc..a93051d 100644
--- a/mystic/install.pas
+++ b/mystic/install.pas
@@ -420,6 +420,8 @@ Begin
 	Cfg.QwkPath 	  := Config.QwkPath;
 	Cfg.ScriptPath  := Config.ScriptPath;
 	Cfg.LogsPath	  := Config.LogsPath;
+  Cfg.MenuPath    := Lang.MenuPath;
+  Cfg.TextPath    := Lang.TextPath;
 	Cfg.UserIdxPos  := 0;
   Cfg.SystemCalls := 0;
 
@@ -454,7 +456,7 @@ Begin
 	End;
 	Close (FBaseFile);
 
-	Assign (LangFile, Config.DataPath + 'language.dat');
+	Assign (LangFile, Config.DataPath + 'theme.dat');
 	Reset  (LangFile);
 
 	While Not Eof(LangFile) Do Begin