--- a/AbstractFileBrowser.st	Wed Mar 19 16:41:52 2003 +0100
+++ b/AbstractFileBrowser.st	Wed Mar 19 17:29:40 2003 +0100
@@ -77,7 +77,10 @@
 
 currentSelection:aFilenameCol
 
-    CurrentSelection := aFilenameCol
+    |newCol|
+
+    newCol := aFilenameCol collect:[:file | file asFilename].
+    CurrentSelection := newCol
 !
 
 directoryHistory
@@ -2610,8 +2613,10 @@
       in contrast to currentDirectories which have only the directories 
     "
     ^ self aspectFor:#currentFileNameHolder ifAbsent:[
-            self class currentSelection notEmpty ifTrue:[
-                self class currentSelection asValue
+            | currentSel |    
+            currentSel := self class currentSelection.
+            currentSel notEmpty ifTrue:[
+                currentSel asValue
             ] ifFalse:[
                 (OrderedCollection with:(Filename currentDirectory asAbsoluteFilename)) asValue
             ]
@@ -5439,7 +5444,7 @@
 
     | files |
     files := self currentFileNameHolder value.
-    ^ (files detect:[: file | file isDirectory not] ifNone:[nil]).
+    ^ (files detect:[: file | file asFilename isDirectory not] ifNone:[nil]).
 !
 
 hasOnlyFilesSelected
@@ -5964,5 +5969,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.112 2003-03-19 10:07:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.113 2003-03-19 16:29:40 martin Exp $'
 ! !