--- a/GenericException.st	Fri Mar 11 15:40:27 2016 +0100
+++ b/GenericException.st	Fri Mar 11 16:58:26 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -224,6 +226,7 @@
     self raiseErrorString:messageText
 ! !
 
+
 !GenericException class methodsFor:'accessing'!
 
 errorString
@@ -2095,6 +2098,20 @@
     "Modified: / 3.8.1999 / 13:33:01 / stefan"
 !
 
+raiseErrorString:aString
+    "raise the signal nonproceedable.
+     The argument, aString is used as messageText"
+
+    <context: #return>
+
+    raiseContext := thisContext.
+    suspendedContext := thisContext sender.
+    messageText := aString.
+    proceedable := false.
+
+    ^ self doRaise
+!
+
 raiseErrorString:aString in:aContext
     "raise the signal nonproceedable.
      The argument, aString is used as messageText"