From c3d2c907f8fb87b99e196c9bfb4f8b8a7fc5818c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Aug 2008 03:05:41 -0500
Subject: [PATCH] accessors

---
 extra/ftp/server/server.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/ftp/server/server.factor b/extra/ftp/server/server.factor
index c5a5449b25..21a32d1776 100644
--- 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 ;