--- a/FileBrowserV2.st	Sun Sep 09 14:58:33 2012 +0200
+++ b/FileBrowserV2.st	Sun Sep 09 15:02:31 2012 +0200
@@ -1822,13 +1822,16 @@
     text := resources string:'Clear History'.
     "/ text := LabelAndIcon icon:(self class clearHistoryIcon) string:text.
     removeItem label:text.
-    removeItem value:[
-        self fileHistory removeAll.
-        self enableFileHistory value:false.
-    ].
+    removeItem 
+        itemValue:[
+            self fileHistory removeAll.
+            self enableFileHistory value:false.
+        ].
     menu addSeparator.
     menu addItem:removeItem.
     ^ menu
+
+    "Modified: / 09-09-2012 / 13:08:42 / cg"
 ! !
 
 !FileBrowserV2 methodsFor:'queries'!
@@ -2001,7 +2004,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.200 2012-09-06 12:48:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.201 2012-09-09 13:02:31 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!