--- a/Block.st	Mon May 10 12:56:48 2010 +0200
+++ b/Block.st	Mon May 10 13:02:26 2010 +0200
@@ -605,6 +605,16 @@
     ^ nargs
 ! !
 
+!Block methodsFor:'binary storage'!
+
+storeBinaryDefinitionOn:stream manager:manager
+    byteCode isNil ifTrue:[
+        self error:'cannot store stc-compiled code of blocks (yet)'.
+    ].
+    ^ super storeBinaryDefinitionOn:stream manager:manager
+
+    "Modified: / 10-05-2010 / 12:59:55 / cg"
+! !
 
 !Block methodsFor:'compatibility-Cola & Pepsi'!
 
@@ -2922,11 +2932,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.177 2010-05-10 10:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.178 2010-05-10 11:02:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.177 2010-05-10 10:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.178 2010-05-10 11:02:26 cg Exp $'
 ! !
 
 Block initialize!