# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1540517902 -7200
# Node ID a4b177b12aa81a5904fa1034b96828a6ae1f9c88
# Parent  bd1dde092c4844c1f530f8d5d5c4dcd6d735be40
#BUGFIX by cg
class: ProceedError
changed: #defaultAction

diff -r bd1dde092c48 -r a4b177b12aa8 ProceedError.st
--- a/ProceedError.st	Thu Oct 25 23:51:56 2018 +0200
+++ b/ProceedError.st	Fri Oct 26 03:38:22 2018 +0200
@@ -74,10 +74,16 @@
     "make proceeding from a non-proceedable raise a warning for now.
      This will change in future revisions"
 
+    |con|
+
+    con := parameter suspendedContext.
+    
     ('WARNING: signal <', parameter creator printString, '> has been raised nonproceedable') errorPrintCR.
-    ('         by: ', parameter suspendedContext printString) errorPrintCR.
-    ('           : ', parameter suspendedContext sender printString) errorPrintCR.
-    ('           : ', parameter suspendedContext sender sender printString) errorPrintCR.
+    ('         by: ', con printString) errorPrintCR.
+    con notNil ifTrue:[
+        ('           : ', con sender printString) errorPrintCR.
+        ('           : ', con sender sender printString) errorPrintCR.
+    ].        
     ('         ', suspendedContext printString , ' tries to proceed.') errorPrintCR.
     ('         in: ', thisContext sender printString) errorPrintCR.
     ('           : ', thisContext sender sender printString) errorPrintCR.
@@ -101,6 +107,7 @@
    "
 
     "Modified: / 13-11-2016 / 10:52:37 / cg"
+    "Modified: / 26-10-2018 / 00:44:50 / Claus Gittinger"
 ! !
 
 !ProceedError class methodsFor:'documentation'!