From ba84c703567573a9f9d7b06526e48583e7d57939 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 22 Nov 2020 15:53:50 +0000
Subject: [PATCH]   * Corrections of omissions in GetLocalTime

git-svn-id: trunk@47528 -
---
 rtl/os2/sysutils.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index 2506465d1f..016ebe812a 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -559,10 +559,11 @@ begin
     Year:=DT.Year;
     Month:=DT.Month;
     Day:=DT.Day;
+    DayOfWeek:=DT.WeekDay;
     Hour:=DT.Hour;
     Minute:=DT.Minute;
     Second:=DT.Second;
-    MilliSecond:=DT.Sec100;
+    MilliSecond:=DT.Sec100 * 10;
   end;
 end;