--- a/GenericException.st	Wed Feb 09 23:27:17 2011 +0100
+++ b/GenericException.st	Thu Feb 10 12:30:47 2011 +0100
@@ -362,7 +362,7 @@
     |parent|
 
     NotifierString isNil ifTrue:[
-        ^ self name asString
+        ^ self nameForDescription asString
     ].
     (NotifierString startsWith:Character space) ifTrue:[
         (parent := self parent) notNil ifTrue:[
@@ -375,7 +375,17 @@
      Object errorSignal description
     "
 
-    "Created: / 23.7.1999 / 14:22:25 / stefan"
+    "Created: / 23-07-1999 / 14:22:25 / stefan"
+    "Modified: / 10-02-2011 / 12:29:07 / cg"
+!
+
+nameForDescription
+    "if no notifierString is specified, this is used.
+     Can be redfined to hide the namespace in subclasses"
+
+    ^ self name
+
+    "Created: / 10-02-2011 / 12:28:51 / cg"
 ! !
 
 !GenericException class methodsFor:'queries'!
@@ -2285,11 +2295,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.129 2011-01-27 17:32:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.130 2011-02-10 11:30:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.129 2011-01-27 17:32:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.130 2011-02-10 11:30:47 cg Exp $'
 ! !
 
 GenericException initialize!