--- a/Behavior.st	Tue Apr 19 11:24:48 2016 +0200
+++ b/Behavior.st	Tue Apr 19 14:54:24 2016 +0200
@@ -1264,10 +1264,9 @@
      These bytes are typically the result from storing into a string/stream.
      Same as readFrom:, for Dolphin compatibility."
 
-    |s result|
-
-    s := aString readStream.
-    result := self readFrom:s.
+    |result|
+
+    result := self readFrom:aString readStream.
 "/ should check here for garbage - maybe later
 "/    s atEnd ifFalse:[^ ConversionError raiseRequestWith:aString errorString:' - garbage at end of ', self name].
     ^ result
@@ -1425,6 +1424,7 @@
 ! !
 
 
+
 !Behavior methodsFor:'RefactoringBrowser'!
 
 realClass