--- a/Block.st	Wed Aug 23 16:04:27 2006 +0200
+++ b/Block.st	Wed Aug 23 16:05:45 2006 +0200
@@ -595,14 +595,6 @@
     ^ nargs
 ! !
 
-!Block methodsFor:'binary storage'!
-
-storeBinaryDefinitionOn:stream manager:manager
-    byteCode isNil ifTrue:[
-	self error:'cannot preserve semantics of block'.
-    ].
-    ^ super storeBinaryDefinitionOn:stream manager:manager
-! !
 
 !Block methodsFor:'conversion'!
 
@@ -2593,7 +2585,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.153 2006-08-21 10:13:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.154 2006-08-23 14:05:45 cg Exp $'
 ! !
 
 Block initialize!