diff --git a/api/os2/mouse.inc b/api/os2/mouse.inc
index 713ed13c76..efaa689747 100644
--- a/api/os2/mouse.inc
+++ b/api/os2/mouse.inc
@@ -396,12 +396,16 @@ begin
   PendingMouseEventOrder [MouseEventOrderTail] := QI.cEvents;
   Inc (MouseEventOrderTail);
   if MouseEventOrderTail = MouseEventBufSize then MouseEventOrderTail := 0;
+  Inc (PendingMouseEvents);
  end;
 end;
 
 {
   $Log$
-  Revision 1.2  2000-01-09 20:43:04  hajny
+  Revision 1.3  2000-04-10 15:50:55  hajny
+    * Inc (PendingMouseEvents) added to PutMouseEvent
+
+  Revision 1.2  2000/01/09 20:43:04  hajny
     * cardinal = longint removed for FPC
 
 }