GenericException.st
changeset 4606 21bf9124f4ac
parent 4564 5401b0d1a6e3
child 4632 522e8accc413
--- a/GenericException.st	Wed Aug 18 17:16:40 1999 +0200
+++ b/GenericException.st	Wed Aug 18 17:17:36 1999 +0200
@@ -778,16 +778,14 @@
 
     NotifierString isNil ifTrue:[
         ^ self name asString
-    ] ifFalse:[
-         (NotifierString startsWith:Character space) ifTrue:[
-            ^ self parent description, NotifierString
-        ] ifFalse:[
-            ^ NotifierString
-        ].
-    ]
+    ].
+    (NotifierString startsWith:Character space) ifTrue:[
+        ^ self parent description, NotifierString
+    ].
+    ^ NotifierString
 
     "
-      Object errorSignal description
+     Object errorSignal description
     "
 
     "Created: / 23.7.1999 / 14:22:25 / stefan"
@@ -1562,6 +1560,6 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.23 1999-08-04 20:18:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.24 1999-08-18 15:17:04 cg Exp $'
 ! !
 GenericException initialize!