--- a/Parser.st	Sun Feb 23 00:28:10 2014 +0100
+++ b/Parser.st	Sun Feb 23 00:54:53 2014 +0100
@@ -4631,7 +4631,7 @@
 !Parser methodsFor:'evaluating expressions'!
 
 defaultFailBlock
-    ^ [:msg | self error:(msg ? 'error in eval') ]
+    ^ nil. "/ [:msg | self error:(msg ? 'error in eval') ]
 !
 
 evaluate:aStringOrStream
@@ -11781,11 +11781,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.804 2014-02-22 23:28:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.805 2014-02-22 23:54:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.804 2014-02-22 23:28:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.805 2014-02-22 23:54:53 cg Exp $'
 !
 
 version_SVN