call canonicalize-path when determining if we can serve a path

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 5247b824fa51c6b7b75faee9be49d7c9246bf89b..2eeeac714a6848744761b38a48b9a6efefc5bf5e 100644 (file)
--- a/basis/ftp/server/server.factor
+++ b/basis/ftp/server/server.factor
@@ -58,7 +58,7 @@ C: <ftp-disconnect> ftp-disconnect
     send-response ;
 
 : serving? ( path -- ? )
-    normalize-path server get serving-directory>> head? ;
+    canonicalize-path server get serving-directory>> head? ;
 
 : can-serve-directory? ( path -- ? )
     { [ exists? ] [ file-info directory? ] [ serving? ] } 1&& ;