--- a/ClassDescription.st	Tue Mar 25 16:47:43 2014 +0100
+++ b/ClassDescription.st	Tue Mar 25 17:01:40 2014 +0100
@@ -656,7 +656,6 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
-
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 categoriesFor:aMethodSelector
@@ -2208,7 +2207,7 @@
                     ]
                 ].
                 wanted 
-            ].
+            ] as:OrderedCollection.
 
     interestingMethods notEmpty ifTrue:[
         first := true.
@@ -2418,7 +2417,7 @@
 
     |source sortedSelectors first privacy interestingMethods cat|
 
-    interestingMethods := self methodsInCategory:aCategory forWhich:methodFilter.
+    interestingMethods := (self methodsInCategory:aCategory forWhich:methodFilter) asOrderedCollection.
     interestingMethods notEmpty ifTrue:[
         first := true.
         privacy := nil.
@@ -2775,9 +2774,11 @@
 printOutCategory:aCategory on:aPrintStream
     "print out all methods in aCategory on aPrintStream, which should understand emphasis"
 
-    |interestingMethods|
-
-    interestingMethods := self methodsInCategory:aCategory forWhich:[:m | true].
+    |interestingMethods sortedSelectors|
+
+    interestingMethods := (self methodsInCategory:aCategory) asOrderedCollection.
+    sortedSelectors := interestingMethods collect:[:m | self selectorAtMethod:m].
+    sortedSelectors sortWith:interestingMethods.
     interestingMethods notEmptyOrNil ifTrue:[
         aPrintStream italic.
         aPrintStream nextPutAll:aCategory.
@@ -2792,6 +2793,10 @@
         aPrintStream cr
     ]
 
+    "
+     ClassDescription printOutCategory:'queries' on:Transcript
+    "
+
     "Modified: / 12.6.1996 / 11:47:36 / stefan"
     "Created: / 28.1.1998 / 00:27:03 / cg"
 !
@@ -3126,9 +3131,11 @@
 printOutCategoryProtocol:aCategory on:aPrintStream
     "{ Pragma: +optSpace }"
 
-    |interestingMethods|
-
-    interestingMethods := self methodsInCategory:aCategory forWhich:[:m | true].
+    |interestingMethods sortedSelectors|
+
+    interestingMethods := (self methodsInCategory:aCategory) asOrderedCollection.
+    sortedSelectors := interestingMethods collect:[:m | self selectorAtMethod:m].
+    sortedSelectors sortWith:interestingMethods.
     interestingMethods notEmptyOrNil ifTrue:[
         aPrintStream italic.
         aPrintStream nextPutAll:aCategory.
@@ -3141,6 +3148,10 @@
         aPrintStream cr
     ]
 
+    "
+     ClassDescription printOutCategoryProtocol:'queries' on:Transcript
+    "
+
     "Modified: 20.4.1996 / 18:20:26 / cg"
     "Modified: 12.6.1996 / 11:48:46 / stefan"
     "Created: 2.4.1997 / 01:10:40 / stefan"
@@ -4331,11 +4342,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.254 2014-02-28 21:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.255 2014-03-25 16:01:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.254 2014-02-28 21:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.255 2014-03-25 16:01:40 stefan Exp $'
 ! !