From ba354b9b2bc9831fb4baf926541e4a521a04f8e7 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 13 Jun 2007 21:24:24 +0000
Subject: [PATCH] Recording design decision

svn: r6649
---
 collects/web-server/dispatchers/filesystem-map.ss    | 1 -
 collects/web-server/docs/reference/dispatchers.scrbl | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/collects/web-server/dispatchers/filesystem-map.ss b/collects/web-server/dispatchers/filesystem-map.ss
index 3bfb42e533..77bb8d5985 100644
--- a/collects/web-server/dispatchers/filesystem-map.ss
+++ b/collects/web-server/dispatchers/filesystem-map.ss
@@ -24,7 +24,6 @@
        ; Build a path
        (apply build-path*
               ; Remove all ".."s
-              ; XXX Should error?
               (strip-prefix-ups
                (map (lambda (p)
                       (if (and (string? p) (string=? "" p))
diff --git a/collects/web-server/docs/reference/dispatchers.scrbl b/collects/web-server/docs/reference/dispatchers.scrbl
index c9c6e21dfe..d0867116ea 100644
--- a/collects/web-server/docs/reference/dispatchers.scrbl
+++ b/collects/web-server/docs/reference/dispatchers.scrbl
@@ -70,7 +70,7 @@ URLs to paths on the filesystem.
          url-path?]{
  The @scheme[url-path?] returned by this procedure considers the root
  URL to be @scheme[base]. It ensures that @scheme[".."]s in the URL
- do not escape the @scheme[base].}                             
+ do not escape the @scheme[base] and removes them silently otherwise.}                             
 
 @defproc[(make-url->valid-path (url->path url->path?))
          url->path?]{