--- a/GenericException.st	Thu Jul 25 13:04:52 2013 +0100
+++ b/GenericException.st	Thu Aug 01 10:22:20 2013 +0100
@@ -1280,13 +1280,14 @@
 
 messageText:aString
     "set the messageText.
-     If it starts with a space, the signals messageText is prepended,
+     If it starts with a space, the signal's original messageText is prepended,
      if it ends with a space, it is appended."
 
     messageText := aString
 
-    "Created: / 5.3.1998 / 16:45:29 / stefan"
-    "Modified: / 12.3.1998 / 15:30:45 / stefan"
+    "Created: / 05-03-1998 / 16:45:29 / stefan"
+    "Modified: / 12-03-1998 / 15:30:45 / stefan"
+    "Modified (comment): / 30-07-2013 / 21:04:43 / cg"
 !
 
 originalSignal
@@ -2354,11 +2355,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.142 2013-06-19 06:34:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.142 2013-06-19 06:34:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $'
 !
 
 version_HG