--- a/ToolApplicationModel.st	Tue Jul 08 14:49:22 2014 +0200
+++ b/ToolApplicationModel.st	Tue Jul 08 15:24:05 2014 +0200
@@ -1413,17 +1413,13 @@
                                     thenCollect: [:histEntry|
                                         anyItem := true.
                                         MenuItem new 
-                                            label: histEntry printStringInMenu; 
+                                            label: histEntry printStringInMenu 
                                             itemValue: #loadFromHistoryEntry: argument: histEntry; 
                                             activeHelpKey: #historyMenuItem]).
                     ]. 
 
-    clearItem := MenuItem new 
-                        label: 'Clear History'; 
-                        itemValue: #emptyHistory; 
-                        activeHelpKey: #historyEmptyMenu;
-                        translateLabel:true.
-    clearItem enabled:anyItem.
+    clearItem := MenuItem label: 'Clear History' itemValue: #emptyHistory enabled:anyItem. 
+    clearItem activeHelpKey: #historyEmptyMenu.
     menu addItem: clearItem.
 
     menu findGuiResourcesIn:self.
@@ -1653,6 +1649,6 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.147 2014-03-17 13:48:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.148 2014-07-08 13:24:05 cg Exp $'
 ! !