DebugView.st
changeset 17547 75013621f613
parent 17546 5800045f456a
child 17566 7871bff67791
--- a/DebugView.st	Tue Jun 20 12:19:52 2017 +0200
+++ b/DebugView.st	Tue Jun 20 12:20:46 2017 +0200
@@ -608,14 +608,14 @@
         withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
         mayProceed:(ex mayProceed).
 
-    (retValFromDebugger isNil and:[ ex mayProceed ]) ifTrue:[
-'retval from debugger: ' print. retValFromDebugger printCR.   
-'ex: ' print. ex class printCR.   
+    (retValFromDebugger isNil and:[ ex notNil and:[ex mayProceed ]]) ifTrue:[
+        "/ 'retval from debugger: ' print. retValFromDebugger printCR.   
+        "/ 'ex: ' print. ex class printCR.   
         ^ ex defaultResumeValue
     ].
     ^ retValFromDebugger
 
-    "Modified: / 20-06-2017 / 12:13:14 / cg"
+    "Modified: / 20-06-2017 / 12:20:22 / cg"
 !
 
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed