diff --git a/rtl/emx/sysutils.pp b/rtl/emx/sysutils.pp
index 3a0090a9fc..5320e1d27d 100644
--- a/rtl/emx/sysutils.pp
+++ b/rtl/emx/sysutils.pp
@@ -751,11 +751,11 @@ begin
    end
   else
    begin
-    Err := DOS.DosError;
+    Err := {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError;
     GetMem (SR, SizeOf (SearchRec));
     Rslt.FindHandle := longint(SR);
-    DOS.FindFirst (Path, Attr, SR^);
-    InternalFindFirst := -DOS.DosError;
+    {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindFirst (Path, Attr, SR^);
+    InternalFindFirst := -{$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError;
     if DosError = 0 then
      begin
       Rslt.Time := SR^.Time;
@@ -766,7 +766,7 @@ begin
       Name := SR^.Name;
       SetCodePage(Name, DefaultFileSystemCodePage, false);
      end;
-    DOS.DosError := Err;
+    {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.DosError := Err;
    end;
 end;
 
@@ -814,7 +814,7 @@ begin
     SR := PSearchRec (Rslt.FindHandle);
     if SR <> nil then
      begin
-      DOS.FindNext (SR^);
+      {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindNext (SR^);
       InternalFindNext := -DosError;
       if DosError = 0 then
        begin
@@ -843,7 +843,7 @@ begin
     else
         begin
             SR := PSearchRec (Handle);
-            DOS.FindClose (SR^);
+            {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}DOS.FindClose (SR^);
             FreeMem (SR, SizeOf (SearchRec));
         end;
     Handle := 0;
@@ -1313,7 +1313,7 @@ begin
     raise E;
   end else
   begin
-   Dos.Exec (Path, ComLine);
+   {$IFDEF FPC_DOTTEDUNITS}TP.{$endif}Dos.Exec (Path, ComLine);
    if DosError <> 0 then
     begin
     if ComLine = '' then