--- a/SftpURI.st	Sun Jan 20 16:28:43 2013 +0100
+++ b/SftpURI.st	Sun Jan 20 16:28:49 2013 +0100
@@ -99,7 +99,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.
@@ -236,7 +236,7 @@
                 attributes at:#uriInfo put:srcUri.  
 
                 [ 
-                    aBlock value:stream value:attributes 
+                    aBlock value:stream optionalValue:attributes 
                 ] ensure:[stream close].
 
                 renameBlock notNil ifTrue:[ 
@@ -289,7 +289,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.
@@ -352,7 +352,7 @@
                 stream := WriteStreamSimulator new 
                                         remotePath:toPath;
                                         connection:ftp.
-                aBlock value:stream value:self class attributes.
+                aBlock value:stream optionalValue:self class attributes.
             ] on:OpenError, FTPClient filePutErrorSignal do:[:ex|
                 doCreate ifFalse:[
                     ex reject
@@ -464,5 +464,6 @@
 !SftpURI class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SftpURI.st,v 1.3 2012-03-14 16:31:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SftpURI.st,v 1.4 2013-01-20 15:28:49 cg Exp $'
 ! !
+