--- a/Behavior.st	Sun Sep 07 20:32:13 2008 +0200
+++ b/Behavior.st	Mon Sep 08 11:42:24 2008 +0200
@@ -1332,6 +1332,24 @@
     "Created: 16.4.1996 / 16:27:16 / cg"
 ! !
 
+!Behavior methodsFor:'binary storage'!
+
+fromBinaryStoreBytes:bytes
+    "/ migration support
+    Dolphin::STBInFiler notNil ifTrue:[
+        (bytes startsWith:(Dolphin::STBInFiler stb_signature)) ifTrue:[
+            ^ (Dolphin::STBInFiler on:bytes readStream) context:nil; next.
+        ].
+    ].
+
+    ^ self readBinaryFrom:(bytes readStream)
+
+    "
+     Object fromBinaryStoreBytes:
+        #[15 1 42 0 0 3 0 40 13 5 104 101 108 108 111 38 40 46 63 243 190 118 200 180 57 88]
+    "
+! !
+
 !Behavior methodsFor:'compiler interface'!
 
 browserClass
@@ -4453,5 +4471,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.281 2008-09-07 17:30:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.282 2008-09-08 09:42:24 cg Exp $'
 ! !