--- a/WorkspaceApplication.st	Sun Jun 09 16:16:54 2013 +0200
+++ b/WorkspaceApplication.st	Sun Jun 09 16:32:47 2013 +0200
@@ -2627,7 +2627,7 @@
         ^ self.
     ].
 
-    listOfSniplets := List withAll:(snipletsDictionary keys asOrderedCollection sort).
+    listOfSniplets := List withAll:(snipletsDictionary keysSorted).
     selectedSnipletsTextHolder := '' asValue.
 
     selectedSnipletHolder := nil asValue.
@@ -2735,7 +2735,7 @@
         Dialog information:(resources string:'No Sniplets to Paste').
         ^ self.
     ].
-    allSniplets := snipletsDictionary keys asOrderedCollection sort.
+    allSniplets := snipletsDictionary keysSorted.
 
     snipletToPaste := Dialog 
                 choose:(resources string:'Paste Sniplet:')
@@ -4031,14 +4031,14 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.243 2013-05-27 08:14:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.244 2013-06-09 14:32:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.243 2013-05-27 08:14:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.244 2013-06-09 14:32:47 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st,v 1.243 2013-05-27 08:14:59 cg Exp $'
+    ^ '$Id: WorkspaceApplication.st,v 1.244 2013-06-09 14:32:47 cg Exp $'
 ! !