--- a/RecursionLock.st	Tue Apr 16 12:58:39 1996 +0200
+++ b/RecursionLock.st	Tue Apr 16 13:00:34 1996 +0200
@@ -93,21 +93,23 @@
 
     active := Processor activeProcess.
     process == active ifTrue:[
-	aBlock value
+        aBlock value
     ] ifFalse:[
-	[
-	    sema critical:[
-		process := active.
-		aBlock value
-	    ]
-	] valueNowOrOnUnwindDo:[
-	    process := nil
-	]
+        sema critical:[
+            [
+                process := active.
+                aBlock value
+            ] valueNowOrOnUnwindDo:[
+                process := nil.
+            ]
+        ]
     ].
+
+    "Modified: 13.4.1996 / 00:19:31 / stefan"
 ! !
 
 !RecursionLock class methodsFor:'documentation'!
 
 version 
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.7 1995-12-16 13:01:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.8 1996-04-16 11:00:34 stefan Exp $'
 ! !