--- 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'!