--- a/WorkspaceApplication.st	Wed Dec 22 18:44:44 2010 +0100
+++ b/WorkspaceApplication.st	Thu Dec 23 16:39:42 2010 +0100
@@ -2395,6 +2395,7 @@
 
     allPools := SharedPool allSubclasses collect:[:p | p name].
     allPools removeAll:(poolsConsideredInDoIts ? #()).
+    allPools sort.
 
     poolToAdd := Dialog 
                 choose:'Select a SharedPool to Add (To be known in doIt-Evaluations):'
@@ -2973,9 +2974,9 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.195 2010-12-01 11:26:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.196 2010-12-23 15:39:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.195 2010-12-01 11:26:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.196 2010-12-23 15:39:42 cg Exp $'
 ! !