--- a/Block.st	Mon Nov 22 21:44:47 1999 +0100
+++ b/Block.st	Tue Nov 23 13:02:03 1999 +0100
@@ -360,6 +360,12 @@
     "Modified: 23.4.1996 / 15:55:58 / cg"
 ! !
 
+!Block methodsFor:'Compatibility - Squeak'!
+
+ifError:handlerBlock
+    ^ self on:Error do:handlerBlock
+! !
+
 !Block methodsFor:'Compatibility - V''Age'!
 
 argumentCount
@@ -1694,6 +1700,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.93 1999-10-11 08:01:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.94 1999-11-23 12:02:03 cg Exp $'
 ! !
 Block initialize!