--- a/Object.st	Thu Oct 01 06:52:24 2015 +0200
+++ b/Object.st	Fri Oct 02 06:42:49 2015 +0100
@@ -520,6 +520,8 @@
 
 
 
+
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -696,6 +698,7 @@
 ! !
 
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1758,6 +1761,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1880,6 +1885,7 @@
 ! !
 
 
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -8616,12 +8622,12 @@
 
     sema := self synchronizationSemaphore.
     sema isNil ifTrue:[
-	sema := RecursionLock new name:self className.
-	self synchronizationSemaphore:sema.
+        sema := RecursionLock new name:self className.
+        self synchronizationSemaphore:sema.
     ].
 
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
-    sema critical:aBlock.
+    ^ sema critical:aBlock.
 
     "
        [Object synchronized:[Delay waitForSeconds:2. Transcript showCR:'1']] fork.
@@ -10299,6 +10305,7 @@
 
 
 
+
 !Object class methodsFor:'documentation'!
 
 version