--- a/ClassDescription.st	Wed Jan 02 13:47:41 2013 +0100
+++ b/ClassDescription.st	Thu Jan 03 10:20:11 2013 +0100
@@ -2832,7 +2832,7 @@
             nextPutAll:self owningClass name;
             nextPut:$).
     ] ifFalse:[
-        aGCOrStream nextPutAll:self name.
+        aGCOrStream nextPutAll:self name ? '*unnamed*'.
     ].
 
     cat := self category.
@@ -4229,11 +4229,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.229 2012-12-21 18:41:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.230 2013-01-03 09:20:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.229 2012-12-21 18:41:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.230 2013-01-03 09:20:11 cg Exp $'
 ! !