--- a/FtpURI.st	Sun Jan 20 16:28:36 2013 +0100
+++ b/FtpURI.st	Sun Jan 20 16:28:43 2013 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 HierarchicalURI subclass:#FtpURI
@@ -113,7 +112,7 @@
             attributes at:#uriInfo  put:self printString.  
 
             stream := ftp getStreamFor:path.
-            aBlock value:stream value:attributes.
+            aBlock value:stream optionalValue:attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -246,7 +245,7 @@
                 attributes at:#uriInfo put:srcUri.  
 
                 [ 
-                    aBlock value:stream value:attributes 
+                    aBlock value:stream optionalValue:attributes 
                 ] ensure:[stream close].
 
                 renameBlock notNil ifTrue:[ |renameFilenameString|
@@ -285,7 +284,7 @@
     self connectThenDo:[:ftp| |stream|
         [
             stream := ftp putStreamFor:self path.
-            aBlock value:stream value:self class attributes.
+            aBlock value:stream optionalValue:self class attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -356,7 +355,7 @@
                 ].
                 stream := ftp putStreamFor:toPath.
             ].
-            aBlock value:stream value:self class attributes.
+            aBlock value:stream optionalValue:self class attributes.
             stream close.
             doAtomic ifTrue:[
                 ftp rename:toPath to:path
@@ -407,5 +406,6 @@
 !FtpURI class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.17 2005-02-01 12:41:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FtpURI.st,v 1.18 2013-01-20 15:28:43 cg Exp $'
 ! !
+