diff --git a/rtl/os2/dos.pas b/rtl/os2/dos.pas
index 2ae5e416f5..20d40edecb 100644
--- a/rtl/os2/dos.pas
+++ b/rtl/os2/dos.pas
@@ -112,7 +112,8 @@ Var
 begin
   P:=Path;
   D:=DirList;
-  DosError := DosSearchPath (dsIgnoreNetErrs, PChar(D), PChar(P), @A, 255);
+  DosError := DosSearchPath (dsCurrentDir or dsIgnoreNetErrs, PChar(D),
+                                                            PChar(P), @A, 255);
   if DosError <> 0 then
    OSErrorWatch (DosError);
   fsearch := StrPas (@A);