ftp.server: Fix bug where serving directory is always f. Need better tests for this...

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 80d699fd1f7e35df096e6655f793513333fc0402..acd106d2de879eddc988c74de41704a33b8f015f 100644 (file)
--- 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