--- a/ToolApplicationModel.st	Fri Aug 03 17:53:57 2012 +0200
+++ b/ToolApplicationModel.st	Mon Aug 13 16:23:34 2012 +0200
@@ -1404,8 +1404,8 @@
     anyItem := false.
 
     ((self history 
-        collect: [:histEntry| histEntry class]) 
-            asSet asSortedCollection:[:a :b | a name < b name]) 
+        collect: [:histEntry| histEntry class] as:Set) 
+            asSortedCollection:[:a :b | a name < b name]) 
                 do:
                     [:historyEntryType|    
                         menu addItemGroup:
@@ -1647,5 +1647,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.140 2011-07-06 16:04:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.141 2012-08-13 14:23:34 stefan Exp $'
 ! !