--- a/ProjectBrowser.st	Fri Apr 23 14:50:06 1999 +0200
+++ b/ProjectBrowser.st	Fri Apr 23 19:52:40 1999 +0200
@@ -3024,10 +3024,14 @@
     patches := project individualMethods.
     patches := patches collect:[:m | m who].
     patches := patches sort:[:w1 :w2 |
-                        w1 methodClass name < w2 methodClass name ifTrue:[
+                        |w1Nm w2Nm|
+
+                        w1Nm := w1 methodClass name.
+                        w2Nm := w2 methodClass name.
+                        w1Nm < w2Nm methodClass name ifTrue:[
                             true
                         ] ifFalse:[
-                            w1 methodClass name = w2 methodClass name ifFalse:[
+                            w1Nm = w2Nm ifFalse:[
                                 false
                             ] ifTrue:[
                                 w1 methodSelector < w2 methodSelector