diff --git a/rtl/os2/classes.pp b/rtl/os2/classes.pp
index c77f513b39..26b5ab3a2f 100644
--- a/rtl/os2/classes.pp
+++ b/rtl/os2/classes.pp
@@ -24,7 +24,6 @@ unit Classes;
 interface
 
 uses
-  strings,
   sysutils,
   typinfo;
 
@@ -47,7 +46,11 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2003-11-05 09:13:59  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.1  2003/10/06 20:33:58  peter
diff --git a/rtl/os2/dos.pas b/rtl/os2/dos.pas
index 3df188e803..f719a617ae 100644
--- a/rtl/os2/dos.pas
+++ b/rtl/os2/dos.pas
@@ -236,7 +236,7 @@ end;
 procedure exec(const path:pathstr;const comline:comstr);
 {Execute a program.}
 begin
-    dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
+  dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
 end;
 
 function exec(path:pathstr;runflags:execrunflags;winflags:execwinflags;
@@ -320,7 +320,9 @@ begin
     end ['eax','ebx','ecx','edx','esi','edi'];
 
     //Not clear how to use
-    exec:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
+    DosError:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
+
+    exec:=Res.ExitCode;
 
     freemem(args,ArgsSize);
     FreeMem(env, envc*sizeof(pchar)+16384);
@@ -702,7 +704,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.32  2003-11-02 09:45:32  hajny
+  Revision 1.33  2003-11-05 09:13:59  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.32  2003/11/02 09:45:32  hajny
   SetFTime fix
 
   Revision 1.31  2003/11/01 18:35:12  hajny
diff --git a/rtl/os2/moncalls.pas b/rtl/os2/moncalls.pas
index bfbecc7ba0..a125a27a6b 100644
--- a/rtl/os2/moncalls.pas
+++ b/rtl/os2/moncalls.pas
@@ -69,8 +69,6 @@ Coding style:
 interface
 {***************************************************************************}
 
-uses    Strings;
-
 {$IFDEF FPC}
     {$PACKRECORDS 1}
 {$ENDIF FPC}
@@ -277,7 +275,11 @@ end.
 
 {
   $Log$
-  Revision 1.2  2002-09-07 16:01:24  peter
+  Revision 1.3  2003-11-05 09:14:00  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.2  2002/09/07 16:01:24  peter
     * old logs removed and tabs fixed
 
 }
diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 7293b5a390..b254a6fa93 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -23,7 +23,7 @@ interface
 {$H+}
 
 uses
- Dos, Strings;
+ Dos;
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -770,7 +770,11 @@ end.
 
 {
   $Log$
-  Revision 1.36  2003-10-27 12:19:20  yuri
+  Revision 1.37  2003-11-05 09:14:00  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.36  2003/10/27 12:19:20  yuri
   * GetLocatTime now also native
 
   Revision 1.35  2003/10/27 11:43:40  yuri