diff --git a/rtl/os2/crt.pas b/rtl/os2/crt.pas
index 629aaa6fff..67859d4450 100644
--- a/rtl/os2/crt.pas
+++ b/rtl/os2/crt.pas
@@ -129,7 +129,7 @@ function kbdcharin(var Akeyrec:Tkbdkeyinfo;wait,kbdhandle:longint):word;
 function kbdpeek(var Akeyrec:TkbdkeyInfo;kbdhandle:word):word;
                  external 'EMXWRAP' index 222;
 
-function dossleep(time:longint):word;
+function dossleep(time:longint):word; cdecl;
                   external 'DOSCALLS' index 229;
 function vioscrollup(top,left,bottom,right,lines:longint;
                      var screl:word;viohandle:longint):word;
diff --git a/rtl/os2/sysos2.pas b/rtl/os2/sysos2.pas
index 9b49fcebc1..88d215013e 100644
--- a/rtl/os2/sysos2.pas
+++ b/rtl/os2/sysos2.pas
@@ -112,7 +112,7 @@ implementation
 {$I SYSTEM.INC}
 
 procedure dosgetinfoblocks(var Atib:Pthreadinfoblock;
-                           var Apib:Pprocessinfoblock);
+                           var Apib:Pprocessinfoblock); cdecl;
                            external 'DOSCALLS' index 312;
 
 {This is the correct way to call external assembler procedures.}
@@ -750,7 +750,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.17  1999-09-10 15:40:35  peter
+  Revision 1.18  2000-01-02 17:45:25  hajny
+    * cdecl added for doscalls routines
+
+  Revision 1.17  1999/09/10 15:40:35  peter
     * fixed do_open flags to be > $100, becuase filemode can be upto 255
 
   Revision 1.16  1999/06/01 13:23:16  peter