diff --git a/rtl/os2/dos.pas b/rtl/os2/dos.pas
index 169510aff3..965ca0d98f 100644
--- a/rtl/os2/dos.pas
+++ b/rtl/os2/dos.pas
@@ -453,7 +453,7 @@ begin
   DT.Minute := byte (Minute);
   DT.Second := byte (Second);
   DT.Sec100 := byte (Sec100);
-  DosSetDateTime (DT);
+  RC := DosSetDateTime (DT);
   if RC <> 0 then
    OSErrorWatch (RC);
 end;