--- a/SftpURI.st	Thu Nov 27 21:07:46 2014 +0100
+++ b/SftpURI.st	Tue Dec 02 15:22:27 2014 +0100
@@ -99,7 +99,7 @@
             attributes at:#uriInfo  put:self printString.  
 
             stream := ftp getStreamFor:path.
-            aBlock value:stream optionalValue:attributes.
+            aBlock value:stream optionalArgument:attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -236,7 +236,7 @@
                 attributes at:#uriInfo put:srcUri.  
 
                 [ 
-                    aBlock value:stream optionalValue:attributes 
+                    aBlock value:stream optionalArgument:attributes 
                 ] ensure:[stream close].
 
                 renameBlock notNil ifTrue:[ 
@@ -289,7 +289,7 @@
     self connectThenDo:[:ftp| |stream|
         [
             stream := ftp putStreamFor:self path.
-            aBlock value:stream optionalValue:self class attributes.
+            aBlock value:stream optionalArgument:self class attributes.
         ] ensure:[
             stream notNil ifTrue:[
                 stream close.
@@ -352,7 +352,7 @@
                 stream := WriteStreamSimulator new 
                                         remotePath:toPath;
                                         connection:ftp.
-                aBlock value:stream optionalValue:self class attributes.
+                aBlock value:stream optionalArgument:self class attributes.
             ] on:OpenError, FTPClient filePutErrorSignal do:[:ex|
                 doCreate ifFalse:[
                     ex reject
@@ -369,7 +369,7 @@
                     self error:('FTP write: Datei %1 already exists!!' bindWith:infoStream contents).
                 ].
 "/                stream := ftp putStreamFor:toPath.
-                aBlock value:stream value:self class attributes.
+                aBlock value:stream optionalArgument:self class attributes.
             ].
             stream close.
             doAtomic ifTrue:[
@@ -464,6 +464,6 @@
 !SftpURI class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/SftpURI.st,v 1.4 2013-01-20 15:28:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SftpURI.st,v 1.5 2014-12-02 14:22:27 stefan Exp $'
 ! !