--- a/Tools__MethodRewriter.st	Thu Feb 05 00:17:31 2015 +0100
+++ b/Tools__MethodRewriter.st	Thu Feb 05 15:32:40 2015 +0100
@@ -839,7 +839,8 @@
 !
 
 classes: aCollection
-    classes := (aCollection collect:[:cls|cls theNonMetaclass]) asList
+    classes := ((aCollection collect:[:cls|cls theNonMetaclass]) 
+                    sort:[:a :b | a className < b className]) asList
 
     "Created: / 20-07-2007 / 16:31:18 / janfrog"
     "Modified: / 12-12-2007 / 09:47:01 / janfrog"
@@ -859,6 +860,16 @@
     "Created: / 12-12-2007 / 10:01:03 / janfrog"
 !
 
+projects: aCollection
+    |allClasses|
+
+    allClasses := OrderedCollection new.
+    aCollection do:[:eachPackage |
+        allClasses addAll:(Smalltalk allClassesInPackage:eachPackage)
+    ].
+    self classes:allClasses.
+!
+
 replacePattern
     ^ replaceTextView contents trimSeparators
 
@@ -1334,7 +1345,7 @@
     newClasses := droppedClasses reject:[:cls | self classes includes:cls].
     self classes 
         addAll: newClasses;
-        changed:#content
+        changed:#content.
 
     "Created: / 20-07-2007 / 16:58:16 / janfrog"
 ! !
@@ -1564,10 +1575,10 @@
 !MethodRewriter class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.21 2015-02-04 23:17:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodRewriter.st,v 1.22 2015-02-05 14:32:40 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__MethodRewriter.st,v 1.21 2015-02-04 23:17:31 cg Exp $'
+    ^ '$Id: Tools__MethodRewriter.st,v 1.22 2015-02-05 14:32:40 cg Exp $'
 ! !