diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index 8764f6b0a0..4cc942b47c 100644
--- a/lcl/interfaces/qt/qtint.pp
+++ b/lcl/interfaces/qt/qtint.pp
@@ -344,7 +344,7 @@ uses
 // uncomment only those units with implementation
 ////////////////////////////////////////////////////
  {$IFDEF HASX11}
- XAtom, X, XLib, XKB, xkblib, dateutils,
+ XAtom, X, XLib, XKB, xkblib,
  {$ENDIF}
  QtCaret,
  QtThemes,
diff --git a/lcl/interfaces/qt/qtx11.inc b/lcl/interfaces/qt/qtx11.inc
index 8a50249947..4e14c879ad 100644
--- a/lcl/interfaces/qt/qtx11.inc
+++ b/lcl/interfaces/qt/qtx11.inc
@@ -120,7 +120,7 @@ begin
   XClient.message_type := WMATom;
   XClient.format := 32;
   XClient.data.l[0] := 1;
-  XClient.data.l[1] := DateTimeToUnix(Now()); // _NET_WM_USER_TIME
+  XClient.data.l[1] := CurrentTime; // _NET_WM_USER_TIME
   XClient.data.l[2] := 0;
   Result := XSendEvent(Display, RootWin, False,
 	      SubstructureRedirectMask or SubstructureNotifyMask,