FIX: AddSearchPath

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7302 8c9fc860-2736-0410-a75d-ab315db34111

source/Files64.Mod

@@ -1119,10 +1119,8 @@ PROCEDURE AddSearchPath*(context: Commands.Context);
 VAR cmd: ARRAY 32 OF CHAR; msg: ARRAY 256 OF CHAR;  res: LONGINT;
 BEGIN
 	(* preliminary implementation until we know how to solve this generically *)
-	IF Modules.ModuleByName("WinFS") # NIL THEN 
-		cmd := "WinFS.AddSearchPath";
-	ELSIF Modules.ModuleByName("UnixFiles") # NIL THEN 
-		cmd := "UnixFiles.AddSearchPath";
+	IF Modules.ModuleByName("WinFiles64") # NIL THEN 
+		cmd := "WinFiles64.AddSearchPath";
 	END;
 	IF cmd # "" THEN 
 		Commands.Activate(cmd, context, {Commands.Wait}, res, msg);