--- a/FileSelectionBrowser.st	Thu Jan 22 15:40:30 1998 +0100
+++ b/FileSelectionBrowser.st	Thu Jan 22 15:43:03 1998 +0100
@@ -204,7 +204,7 @@
                     #'name:' 'SubSpecification'
                     #'layout:' #(#LayoutFrame 2 0.0 -32 1 -2 1.0 -8 1.0)
                     #'majorKey:' #ToolApplicationModel
-                    #'minorKey:' #windowSpecForCommit
+                    #'minorKey:' #windowSpecForCommitWithoutChannels
                 )
               )
           )
@@ -317,7 +317,7 @@
     accept value
     ifTrue:
     [
-        ^(self selectionOfDirectory value ? '') , Filename separator, (self valueOfFileName value ? '')
+        ^self valueOfFileName value ? ''
     ].
     ^nil