--- a/Block.st	Fri Oct 23 01:45:04 2009 +0200
+++ b/Block.st	Fri Oct 23 14:27:46 2009 +0200
@@ -2026,15 +2026,18 @@
         exceptionHandlerInContext isExceptionHandler ifFalse:[
             exceptionHandlerInContext isNil ifTrue:[
                 'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-            ] ifFalse:[(exceptionHandlerInContext isBehavior 
-                        and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-                "If the exception class is still autoloaded,
-                 it does not accept our exception. Raising the exception would load the class"
-                ^ nil
             ] ifFalse:[
-                'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-            ]].
-            aContext fullPrint.
+                (exceptionHandlerInContext isBehavior 
+                and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+                    "If the exception class is still autoloaded,
+                     it does not accept our exception. Raising the exception would load the class"
+                    ^ nil
+                ] ifFalse:[
+                    'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+                ]
+            ].
+            aContext fullPrintString errorPrintCR.
+            self breakPoint:#cg.
             ^ nil.
         ].
         (exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
@@ -2045,15 +2048,18 @@
         exceptionHandlerInContext isExceptionHandler ifFalse:[
             exceptionHandlerInContext isNil ifTrue:[
                 'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-            ] ifFalse:[(exceptionHandlerInContext isBehavior 
-                        and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-                "If the exception class is still autoloaded,
-                 it does not accept our exception. Raising the exception would load the class"
-                ^ nil
             ] ifFalse:[
-                'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-            ]].
-            aContext fullPrint.
+                (exceptionHandlerInContext isBehavior 
+                and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+                    "If the exception class is still autoloaded,
+                     it does not accept our exception. Raising the exception would load the class"
+                    ^ nil
+                ] ifFalse:[
+                    'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+                ]
+            ].
+            aContext fullPrintString errorPrintCR.
+            self breakPoint:#cg.
             ^ nil.
         ].
         (exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
@@ -2884,11 +2890,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.173 2009-10-22 17:47:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.174 2009-10-23 12:27:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.173 2009-10-22 17:47:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.174 2009-10-23 12:27:46 cg Exp $'
 ! !
 
 Block initialize!