--- a/AbstractFileBrowser.st	Thu May 27 16:30:02 2004 +0200
+++ b/AbstractFileBrowser.st	Tue Jun 01 13:16:09 2004 +0200
@@ -1647,27 +1647,27 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #enabled: #hasSelection
-            #label: 'Copy Selected Filenames to Clipboard'
-            #itemValue: #copySelectedFilenames
-            #translateLabel: true
+     #(Menu
+        (
+         (MenuItem
+            enabled: hasFileSelection
+            label: 'Copy Selected Filenames to Clipboard'
+            itemValue: copySelectedFilenames
+            translateLabel: true
           )
-         #(#MenuItem
-            #enabled: #fileListIsNotEmpty
-            #label: 'Copy All Filenames to Clipboard'
-            #itemValue: #copyFileList
-            #translateLabel: true
+         (MenuItem
+            enabled: fileListIsNotEmpty
+            label: 'Copy All Filenames to Clipboard'
+            itemValue: copyFileList
+            translateLabel: true
           )
-         #(#MenuItem
-            #label: '-'
+         (MenuItem
+            label: '-'
           )
-         #(#MenuItem
-            #label: 'Settings...'
-            #itemValue: #openSettingsDialog
-            #translateLabel: true
+         (MenuItem
+            label: 'Settings...'
+            itemValue: openSettingsDialog
+            translateLabel: true
           )
          )
         nil
@@ -6085,7 +6085,7 @@
 theSingleSelectedDirectoryOrHomeDir
     |dir|
 
-    dir := self theSingleSelectedDirectoryOrNil
+    dir := self theSingleSelectedDirectoryOrNil.
     dir isNil ifTrue:[ dir := Filename homeDirectory].
     ^ dir.
 !
@@ -6882,5 +6882,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.235 2004-05-24 07:53:04 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.236 2004-06-01 11:15:49 cg Exp $'
 ! !