From 1ed6c013a2adc8ce2fa2474ae0ec070e5047c017 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 18 Feb 2009 15:49:18 -0600
Subject: [PATCH] call canonicalize-path when determining if we can serve a
 path

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

diff --git a/basis/ftp/server/server.factor b/basis/ftp/server/server.factor
index 5247b824fa..2eeeac714a 100644
--- 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&& ;