diff --git a/rtl/morphos/dos.pp b/rtl/morphos/dos.pp
index 4f10cddb6b..502ce6d345 100644
--- a/rtl/morphos/dos.pp
+++ b/rtl/morphos/dos.pp
@@ -681,7 +681,6 @@ end;
 
 function FSearch(path: PathStr; dirlist: String) : PathStr;
 var
-  counter: LongInt;
   p1     : LongInt;
   tmpSR  : SearchRec;
   newdir : PathStr;
@@ -727,7 +726,7 @@ begin
     DosError:=0;
     FTime := 0;
     Str := StrPas(filerec(f).name);
-    DoDirSeparators(str);
+    DoDirSeparators(Str);
     FLock := dosLock(Str, SHARED_LOCK);
     IF FLock <> 0 then begin
         New(FInfo);
@@ -906,7 +905,6 @@ begin
 end;
 
 
-
 function GetEnv(envvar : String): String;
 var
    bufarr : array[0..255] of char;