--- a/Block.st	Mon Mar 06 14:58:40 2006 +0100
+++ b/Block.st	Mon Mar 06 15:24:04 2006 +0100
@@ -2199,6 +2199,10 @@
 "/      aStream nextPutAll:' ???' 
 "/    ]
 "/
+!
+
+storeOn:aStream
+    self error:'Blocks cannot be stored (yet)'
 ! !
 
 !Block methodsFor:'private-accessing'!
@@ -2556,7 +2560,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.148 2006-02-20 09:51:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.149 2006-03-06 14:24:04 sr Exp $'
 ! !
 
 Block initialize!