--- a/DirectoryContentsBrowser.st	Tue Oct 29 14:21:38 2002 +0100
+++ b/DirectoryContentsBrowser.st	Tue Oct 29 16:15:55 2002 +0100
@@ -1913,7 +1913,7 @@
 fileName:aFilename
     "set fileName for instance
     "
-    fileName := aFilename.
+    fileName := aFilename asFilename.
 !
 
 fileType
@@ -2744,5 +2744,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.45 2002-10-29 10:31:06 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.46 2002-10-29 15:15:46 cg Exp $'
 ! !