--- a/ProjectBrowser.st	Fri Oct 08 17:12:31 1999 +0200
+++ b/ProjectBrowser.st	Sat Oct 09 12:01:56 1999 +0200
@@ -3629,7 +3629,7 @@
     |p|
 
     p := self currentProject.
-    ^ (p classes ? #()) 
+    ^ p classes 
         collect:[:classOrSymbol |
                     classOrSymbol isBehavior ifTrue:[
                         classOrSymbol name
@@ -3832,14 +3832,15 @@
     classesNode contents:#classes.
     classesNode icon:(self class classesIcon).
     classesNode info:'Classes contained in the project'.
-    ((aProject classes ? #()) copy sort:[:a :b | 
-                                                |nmA nmB|
-
-                                                nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
-                                                nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
-                                                nmA < nmB
-                                        ]) 
-    do:[:aClass |
+    (aProject classes copy 
+        sort:[:a :b | 
+                    |nmA nmB|
+
+                    nmA := a isBehavior ifTrue:[a name] ifFalse:[a].
+                    nmB := b isBehavior ifTrue:[b name] ifFalse:[b].
+                    nmA < nmB
+             ]
+    ) do:[:aClass |
         |cNode cName|
 
         cName := aClass isBehavior ifTrue:[aClass name] ifFalse:[aClass].
@@ -3864,10 +3865,11 @@
     patchesNode contents:#patches.
     patchesNode icon:(self class methodsIcon).
     patchesNode info:'Patches & Extensions (system-changes) contained in the project'.
-    ((aProject methodInfo ? #()) copy sort:[:a :b | 
-                                                a displayString < b displayString.
-                                        ]) 
-    do:[:aMethodInfo |
+    ((aProject methodInfo ? #()) copy 
+        sort:[:a :b | 
+                    a displayString < b displayString.
+            ]
+    ) do:[:aMethodInfo |
         |cNode cName|
 
         cNode := ProjectTreeItem name:(aMethodInfo className , ' ' , aMethodInfo methodName).