--- a/FilenameWidgetWithHistory.st	Wed Jul 08 11:59:10 2015 +0200
+++ b/FilenameWidgetWithHistory.st	Fri Jul 24 22:25:51 2015 +0200
@@ -161,6 +161,10 @@
 
 !FilenameWidgetWithHistory methodsFor:'accessing-channels'!
 
+acceptChannel:aValueHolder
+    fileNameEntryField acceptChannel:aValueHolder.
+!
+
 enableChannel:aValueHolder
     fileNameEntryField enableChannel:aValueHolder.
     browseButton enableChannel:aValueHolder.
@@ -284,7 +288,12 @@
     |path |
 
     Dialog modifyingBoxWith:[:box |
-        box perform:#browsemenuItemVisibleHolder: with:true ifNotUnderstood:[].
+        |holder|
+
+        holder := box perform:#browsemenuItemVisibleHolder ifNotUnderstood:[nil].
+        holder notNil ifTrue:[
+            holder value:true
+        ]
     ] do:[
         |title defaultPath defaultDir|
 
@@ -342,10 +351,10 @@
 !FilenameWidgetWithHistory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.23 2015-02-27 15:31:27 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameWidgetWithHistory.st,v 1.23 2015-02-27 15:31:27 cg Exp $'
+    ^ '$Header$'
 ! !