--- a/RecursionLock.st	Fri Jun 12 18:27:43 2009 +0200
+++ b/RecursionLock.st	Sat Jun 13 10:34:17 2009 +0200
@@ -228,9 +228,6 @@
     ].
 
     wasBlocked := OperatingSystem blockInterrupts.
-"/    process == active ifTrue:[
-"/        ^ aBlock value
-"/    ].
 
     process notNil ifTrue:[
         wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
@@ -254,5 +251,5 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.33 2008-02-04 09:27:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.34 2009-06-13 08:34:17 cg Exp $'
 ! !