--- a/RecursionLock.st	Thu Jul 28 15:07:43 2016 +0200
+++ b/RecursionLock.st	Thu Jul 28 19:36:09 2016 +0200
@@ -194,7 +194,7 @@
 !RecursionLock methodsFor:'waiting'!
 
 critical:aBlock
-    "evaluate aBlock as a critical region, but do not block,
+    "evaluate aBlock as a critical region, but do not block
      if this lock is already held by the current process."
 
     |active retVal wasBlocked gotSema|