--- a/ProjectBrowser.st	Thu Mar 25 13:26:55 1999 +0100
+++ b/ProjectBrowser.st	Thu Mar 25 17:30:01 1999 +0100
@@ -1875,11 +1875,18 @@
 
     classesNode contents:#classes.
     classesNode icon:(self class classesIcon).
-    ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) 
+    ((aProject classes ? #()) copy sort:[:a :b | 
+                                                |nmA nmB|
+
+                                                nmA := a isSymbol ifTrue:[a] ifFalse:[a name].
+                                                nmB := b isSymbol ifTrue:[b] ifFalse:[b name].
+                                                nmA < nmB
+                                        ]) 
     do:[:aClass |
-        |cNode|
+        |cNode cName|
 
-        cNode := ProjectTreeItem name:aClass name.
+        cName := aClass isSymbol ifTrue:[aClass] ifFalse:[aClass name].
+        cNode := ProjectTreeItem name:cName.
         classesNode add:cNode.
     ].