--- a/Block.st	Fri Dec 06 14:20:31 2013 +0100
+++ b/Block.st	Fri Dec 06 15:08:55 2013 +0100
@@ -370,6 +370,8 @@
     "Modified: 23.4.1996 / 15:55:58 / cg"
 ! !
 
+
+
 !Block methodsFor:'Compatibility-ANSI'!
 
 argumentCount
@@ -662,6 +664,7 @@
     "Created: / 28-08-2010 / 14:41:15 / cg"
 ! !
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -2753,7 +2756,7 @@
 !
 
 storeOn:aStream
-    self error:'Blocks cannot be stored (yet)' mayProceed:true.
+    MethodNotAppropriateError raiseRequestErrorString:'Blocks cannot be stored (yet)'.
     self printOn:aStream.
 ! !
 
@@ -3118,11 +3121,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.199 2013-07-21 10:44:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.200 2013-12-06 14:08:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.199 2013-07-21 10:44:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.200 2013-12-06 14:08:55 stefan Exp $'
 ! !