--- a/FileURI.st	Thu Jul 10 14:07:39 2003 +0200
+++ b/FileURI.st	Thu Jul 10 16:33:01 2003 +0200
@@ -131,7 +131,7 @@
 
     |attributes fn files list dirPath|
 
-    fn := self asFilename.
+    fn := self path asFilename.
     files := OrderedCollection new.
     list := OrderedCollection new.
     attributes := self class attributes.
@@ -235,7 +235,7 @@
 
     |stream fileName|
 
-    fileName := self asFilename.
+    fileName := self path asFilename.
     [
         Stream streamErrorSignal handle:[:ex|
             doCreate ifFalse:[
@@ -263,5 +263,5 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.5 2003-07-10 12:07:29 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.6 2003-07-10 14:32:51 tm Exp $'
 ! !