--- a/ToolApplicationModel.st	Tue Apr 15 17:44:32 2003 +0200
+++ b/ToolApplicationModel.st	Wed Apr 23 11:53:35 2003 +0200
@@ -1246,10 +1246,10 @@
     (self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
     [:historyEntryType|    
         menu addItemGroup:
-                ((self history 
+                (self history 
                     select: [:histEntry| 
-                        histEntry value = historyEntryType]) 
-                    collect: [:histEntry|  
+                        histEntry value = historyEntryType] 
+                    thenCollect: [:histEntry|  
                         MenuItem new 
                             label: histEntry key printString; 
                             value: histEntry value; 
@@ -1368,5 +1368,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.115 2003-03-19 11:31:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.116 2003-04-23 09:53:35 cg Exp $'
 ! !