--- a/Tools_HierarchicalClassList.st	Wed Mar 14 13:14:33 2007 +0100
+++ b/Tools_HierarchicalClassList.st	Wed Mar 14 15:51:26 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
@@ -247,29 +246,31 @@
     aClass == InheritedEntry ifTrue:[ ^ aClass ].
 
     nm := aClass name.
+    nm isNil ifTrue:[^ '???'].
+
     indent := 0.
 
     superClass := aClass superclass.
     [superClass notNil] whileTrue:[
-	indent := indent + 1.
-	superClass := superClass superclass.
+        indent := indent + 1.
+        superClass := superClass superclass.
     ].
 
     indent == 0 ifTrue:[
-	^ nm
+        ^ nm
     ].
 
     indent <= 5 ifTrue:[
-	indent := #(
-		     ''
-		     '    '
-		     '        '
-		     '            '
-		     '                '
-		     '                    '
-		   ) at:indent+1.
+        indent := #(
+                     ''
+                     '    '
+                     '        '
+                     '            '
+                     '                '
+                     '                    '
+                   ) at:indent+1.
     ] ifFalse:[
-	indent := String new:indent*4 withAll:Character space.
+        indent := String new:indent*4 withAll:Character space.
     ].
     ^ indent , nm
 
@@ -285,7 +286,7 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.6 2006-03-28 17:45:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.7 2007-03-14 14:51:26 cg Exp $'
 ! !
 
 HierarchicalClassList initialize!