From 30820cd0e5be056edb2b5694a24b5f07a224cf75 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Thu, 6 Nov 2014 16:51:15 +0000
Subject: [PATCH]   * fixed missed setting of return code

git-svn-id: trunk@29002 -
---
 rtl/os2/dos.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;