--- 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!