--- a/RecursionLock.st	Mon Jul 24 23:07:08 2017 +0200
+++ b/RecursionLock.st	Mon Jul 24 23:08:12 2017 +0200
@@ -298,7 +298,7 @@
             super signal.
             'RecursionLock [warning]: cleanup lock from dead process' infoPrintCR.
         ].
-        gotSema := super waitWithTimeoutMs:timeoutMs.
+        gotSema := super waitWithTimeoutMs:timeoutMs state:#wait.
         gotSema notNil ifTrue:[
             process := active.
             wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
@@ -325,6 +325,7 @@
     ^ retVal.
 
     "Modified (comment): / 22-02-2017 / 15:35:25 / stefan"
+    "Modified: / 24-07-2017 / 21:17:29 / cg"
 !
 
 wait
@@ -375,13 +376,15 @@
         super signal.
         'RecursionLock [info]: cleanup leftover lock from dead process' infoPrintCR.
     ].
-    gotSema := super waitWithTimeoutMs:milliSeconds.
+    gotSema := super waitWithTimeoutMs:milliSeconds state:#wait.
     gotSema notNil ifTrue:[
         gotSema := true.
         process := active.
     ].
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
     ^ gotSema.
+
+    "Modified: / 24-07-2017 / 21:17:39 / cg"
 ! !
 
 !RecursionLock class methodsFor:'documentation'!