 
 : handle-SIZE ( obj -- )
     [
+        [ 213 ] dip
         tokenized>> second file-info size>>
-        213 swap number>string server-response
+        number>string server-response
     ] [
         2drop
         550 "Could not get file size" server-response

    finish-directory ;

: transfer-outgoing-file ( path -- )
    150 "Opening BINARY mode data connection for "
    rot   
    [ file-name ] [
        " " swap  file-info size>> number>string
        "(" " bytes)." surround append
    ] bi 3append server-response ;

: transfer-incoming-file ( path -- )
    150 "Opening BINARY mode data connection for " rot append
    server-response ;

: finish-file-transfer ( -- )

    [ >>raw ] [ tokenize-command >>tokenized ] bi ;

: (send-response) ( n string separator -- )
    [ number>string write ] 2dip write ftp-send ;

: send-response ( ftp-response -- )
    [ n>> ] [ strings>> ] bi
