--- a/FileURI.st	Sun Jan 20 16:22:18 2013 +0100
+++ b/FileURI.st	Sun Jan 20 16:28:36 2013 +0100
@@ -139,7 +139,7 @@
 
     ^ [ 
         stream := file readStream.
-        aBlock value:stream value:attributes
+        aBlock value:stream optionalValue:attributes
      ] ensure:[
         stream notNil ifTrue:[stream close]
      ].
@@ -227,7 +227,7 @@
                 attributes at:#uriInfo put:uri.  
             ].
             stream := eachFilename readStream.
-            aBlock value:stream value:attributes.
+            aBlock value:stream optionalValue:attributes.
         ] ensure:[
             stream notNil ifTrue:[stream close]
         ].
@@ -271,7 +271,7 @@
 
     ^ [
         stream := self asFilename writeStream.
-        aBlock value:stream value:self class attributes
+        aBlock value:stream optionalValue:self class attributes
      ] ensure:[
         stream notNil ifTrue:[stream close]
      ].
@@ -330,7 +330,7 @@
             ].
             stream := toFileName writeStream.
         ].
-        aBlock value:stream value:self class attributes.
+        aBlock value:stream optionalValue:self class attributes.
         stream close.
         doAtomic ifTrue:[
             toFileName moveTo:fileName.
@@ -352,9 +352,10 @@
 !FileURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.16 2010-08-12 13:28:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.17 2013-01-20 15:28:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.16 2010-08-12 13:28:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FileURI.st,v 1.17 2013-01-20 15:28:36 cg Exp $'
 ! !
+