diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 80d699fd1f..acd106d2de 100644
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -137,7 +137,7 @@ ERROR: type-error type ;
 
 : handle-PWD ( obj -- )
     drop
-    display-directory get "\"" dup surround 257 server-response ;
+    display-directory "\"" dup surround 257 server-response ;
 
 : handle-SYST ( obj -- )
     drop