accessors

2008-08-31 03:05:41 -05:00 · 2008-08-31 03:05:41 -05:00 · c3d2c907f8
parent 521188ab05
commit c3d2c907f8
1 changed files with 1 additions and 1 deletions
--- a/extra/ftp/server/server.factor
+++ b/extra/ftp/server/server.factor
@ -144,7 +144,7 @@ M: ftp-list service-command ( stream obj -- )
    150 "Opening BINARY mode data connection for "
    rot   
    [ file-name ] [
-        " " swap  file-info file-info-size number>string
+        " " swap  file-info size>> number>string
        "(" " bytes)." swapd 3append append
    ] bi 3append server-response ;