--- a/Signal.st	Thu Feb 05 20:01:18 1998 +0100
+++ b/Signal.st	Thu Feb 05 20:04:33 1998 +0100
@@ -323,17 +323,22 @@
 
     |t|
 
+    (self inheritsFrom:Object userNotificationSignal) ifTrue:[
+        "/ all userNotifications pass the errorString unchanged.
+        ^ errorString
+    ].
+
     errorString isNil ifTrue:[
-	t := notifierString
+        t := notifierString
     ] ifFalse:[
-	t := errorString.
-	(errorString endsWith:Character space) ifTrue:[
-	    t := errorString , notifierString
-	] ifFalse:[
-	    (errorString startsWith:Character space) ifTrue:[
-		t := notifierString , errorString
-	    ]
-	].
+        t := errorString.
+        (errorString endsWith:Character space) ifTrue:[
+            t := errorString , notifierString
+        ] ifFalse:[
+            (errorString startsWith:Character space) ifTrue:[
+                t := notifierString , errorString
+            ]
+        ].
     ].
     ^ t.
 
@@ -777,6 +782,6 @@
 !Signal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.48 1998-01-12 13:15:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.49 1998-02-05 19:04:33 ca Exp $'
 ! !
 Signal initialize!