--- a/Tools_ClassList.st	Wed Mar 14 15:51:26 2007 +0100
+++ b/Tools_ClassList.st	Wed Mar 14 15:54:55 2007 +0100
@@ -1066,7 +1066,7 @@
                     (classesAlready includes:cls) ifFalse:[
                         classesAlready add:cls.
                         (owner := cls owningClass) notNil ifTrue:[
-                            bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | a name < b name] ].
+                            bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
                             bucket add:cls.
                         ] ifFalse:[
                             classesOrdered add:cls.
@@ -1638,5 +1638,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.26 2007-03-06 11:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.27 2007-03-14 14:54:55 cg Exp $'
 ! !