--- a/ProceedError.st	Wed Oct 26 23:35:39 2016 +0100
+++ b/ProceedError.st	Fri Nov 18 20:48:04 2016 +0000
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Warning subclass:#ProceedError
     instanceVariableNames: ''
     classVariableNames: ''
@@ -76,8 +78,13 @@
 
     ('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.
     ('         ', suspendedContext printString , ' tries to proceed.') errorPrintCR.
-    ('         This will be an error in future ST/X versions.') errorPrintCR.
+    ('         in: ', thisContext sender printString) errorPrintCR.
+    ('           : ', thisContext sender sender printString) errorPrintCR.
+    ('           : ', thisContext sender sender sender printString) errorPrintCR.
+    ('         This may be an error in future ST/X versions.') errorPrintCR.
 
     self proceedWith:nil.
 
@@ -94,13 +101,15 @@
          Object errorSignal raise
       ].
    "
+
+    "Modified: / 13-11-2016 / 10:52:37 / cg"
 ! !
 
 
 !ProceedError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.6 2013-04-19 08:40:03 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN