--- a/Context.st	Wed Jun 05 20:27:48 2019 +0200
+++ b/Context.st	Wed Jun 05 20:28:49 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1134,6 +1132,21 @@
     "
      thisContext printAllLevels:5
     "
+!
+
+savePrint
+    "print the receiver-class and selector only
+     - used when there is a danger that printing results in errors"
+
+    self receiver class name _errorPrint. ' ' _errorPrint. selector _errorPrint.
+    ' [' _errorPrint. self lineNumber _errorPrint. ']' _errorPrintCR
+
+    "
+     thisContext fullPrint
+     thisContext savePrint
+    "
+
+    "Created: / 05-06-2019 / 20:25:05 / Claus Gittinger"
 ! !
 
 !Context methodsFor:'non local control flow'!