 M: ftp-put service-command ( stream obj -- )
     [
         path>>
-        [ start-file-transfer ]
-        [ binary <file-reader> swap stream-copy ] bi
+        [ transfer-incoming-file ]
+        [ binary <file-writer> stream-copy ] bi
         finish-file-transfer
     ] [
         3drop "File transfer failed" ftp-error


        ! { "ALLO" [ ] }
        ! { "REST" [ ] }
        ! { "STOR" [ handle-STOR t ] }
        ! { "STOU" [ ] }
        { "RETR" [ handle-RETR t ] }
        { "LIST" [ handle-LIST t ] }

    150 "Here comes the directory listing." server-response ;

: finish-directory ( -- )
    226 "Opening " server-response ;

GENERIC: service-command ( stream obj -- )

