Use path+ in file responder

diff --git a/contrib/httpd/file-responder.factor b/contrib/httpd/file-responder.factor
index 8d0dd35561ae2dc12b4d168a15cd2fea4e5c678c..28a57e8506de16bd1d3cb0104709389ebfdf2b63 100644 (file)
--- a/contrib/httpd/file-responder.factor
+++ b/contrib/httpd/file-responder.factor
@@ -5,7 +5,7 @@ USING: calendar embedded errors html httpd io kernel math namespaces parser
 sequences strings hashtables ;
 
 : serving-path ( filename -- filename )
-    [ "" ] unless* "doc-root" get swap append ;
+    [ "" ] unless* "doc-root" get swap path+ ;
 
 : file-http-date ( filename -- string )
   #! Return the date in HTTP Date format (see RFC 2616).