diff --git a/extra/ftp/ftp.factor b/extra/ftp/ftp.factor
index b2b5ebc9aa..1fd97df6d5 100644
--- a/extra/ftp/ftp.factor
+++ b/extra/ftp/ftp.factor
@@ -59,5 +59,5 @@ TUPLE: ftp-response n strings parsed ;
     3array " " join ;
 
 : directory-list ( -- seq )
-    "" directory keys
+    "" directory-files
     [ [ link-info ] keep file-info>string ] map ;