--- a/Behavior.st	Fri Jan 20 20:17:13 2017 +0000
+++ b/Behavior.st	Wed Jan 25 14:28:27 2017 +0000
@@ -2984,16 +2984,16 @@
      This is the reverse operation to 'storeOn:'.
 
      WARNING: storeOn: does not handle circular references and multiple
-	      references to the same object.
-	      Use #storeBinary:/readBinaryFrom: for this."
+              references to the same object.
+              Use #storeBinary:/readBinaryFrom: for this."
 
     ^ [
-	|newObject|
-
-	newObject := self evaluatorClass evaluateFrom:aStream ifFail:exceptionBlock.
-	((newObject class == self) or:[newObject isKindOf:self])
-	    ifTrue:[newObject]
-	    ifFalse:[exceptionBlock value].
+        |newObject|
+
+        newObject := self evaluatorClass evaluateFrom:aStream ifFail:exceptionBlock.
+        ((newObject class == self) or:[newObject isKindOf:self])
+            ifTrue:[newObject]
+            ifFalse:[^ exceptionBlock value].
     ] on:Error do:exceptionBlock.
 
     "
@@ -3001,7 +3001,7 @@
      s := WriteStream on:String new.
      #(1 2 3 4) storeOn:s.
      Transcript showCR:(
-	Array readFrom:(ReadStream on:s contents) onError:'not an Array'
+        Array readFrom:(ReadStream on:s contents) onError:'not an Array'
      )
     "
     "
@@ -3009,7 +3009,7 @@
      s := WriteStream on:String new.
      #[1 2 3 4] storeOn:s.
      Transcript showCR:(
-	 Array readFrom:(ReadStream on:s contents) onError:'not an Array'
+         Array readFrom:(ReadStream on:s contents) onError:'not an Array'
      )
     "
     "