diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 67818f99d5..4bef5f45b9 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -7434,7 +7434,7 @@ begin
 
     FMessageQueue.AddMessage(AMessage);
 
-    if GetThreadID <> MainThreadID then
+    if GetCurrentThreadId <> MainThreadID then
     begin
       // awake gtk loop
       // when the main thread is currently processing messages it will process