diff --git a/rtl/objpas/classes/classes.inc b/rtl/objpas/classes/classes.inc
index c3962a93ca..f98913b24d 100644
--- a/rtl/objpas/classes/classes.inc
+++ b/rtl/objpas/classes/classes.inc
@@ -683,6 +683,13 @@ begin
   InternalQueue(aThread, aMethod, True);
 end;
 
+{$ifdef FPC_HAS_REFERENCE_PROCEDURE}
+class procedure TThread.ForceQueue(aThread: TThread; aMethod: TThreadProcedure); static;
+begin
+  InternalQueue(aThread, aMethod, True);
+end;
+{$endif}
+
 class procedure TThread.RemoveQueuedEvents(aThread: TThread; aMethod: TThreadMethod);
 var
   entry, tmpentry, lastentry: PThreadQueueEntry;
diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 2132bb3329..9241bba2af 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -2009,6 +2009,9 @@ type
     class procedure Queue(aThread: TThread; AProcedure : TThreadProcedure); static;
     {$endif}
     class procedure ForceQueue(aThread: TThread; aMethod: TThreadMethod); inline; static;
+    {$ifdef FPC_HAS_REFERENCE_PROCEDURE}
+    class procedure ForceQueue(aThread: TThread; aMethod: TThreadProcedure); inline; static;
+    {$endif}
     class procedure RemoveQueuedEvents(aThread: TThread; aMethod: TThreadMethod); static;
     class procedure RemoveQueuedEvents(aMethod: TThreadMethod); static;
     class procedure RemoveQueuedEvents(aThread: TThread); static;