--- a/Smalltalk.st	Fri Sep 12 13:44:43 2003 +0200
+++ b/Smalltalk.st	Fri Sep 12 15:32:21 2003 +0200
@@ -2191,10 +2191,11 @@
     ].
 
     matches sort:[:name1 :name2 |
-        ((name1 includes:$:) not and:[(name2 includes:$:)])
-        or:[ (name1 includes:$:) = (name2 includes:$:)
-              and:[ (name2 size < name1 size) 
-                    or: [ name2 < name1 ]]
+        "name1 comes before:name2 iff"
+        ((name2 includes:$:) and:[(name1 includes:$:) not])
+        or:[ ((name1 includes:$:) == (name2 includes:$:))
+              and:[ (name1 size < name2 size) 
+                    or: [ name1 < name2 ]]
            ]
     ].
 
@@ -6584,5 +6585,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.599 2003-09-12 11:44:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.600 2003-09-12 13:32:21 cg Exp $'
 ! !