From ef73afe8aa283ed2966b9cee72477958e7e901ed Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 6 Jun 2010 05:40:16 -0400
Subject: [PATCH] Fix a small but nasty bug, and the related problem in stubs.

original commit: 054ce9d21cf9928153f42c372574694226ccc212
---
 collects/meta/web/html/resource.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/meta/web/html/resource.rkt b/collects/meta/web/html/resource.rkt
index b9ef57f0..3655fc3d 100644
--- a/collects/meta/web/html/resource.rkt
+++ b/collects/meta/web/html/resource.rkt
@@ -63,7 +63,8 @@
              (let loop ([r (car root+url)] [p path])
                (if (null? r)
                  `(,(cdr root+url) ,@p ,file*)
-                 (and (pair? p) (loop (cdr r) (cdr p))))))
+                 (and (pair? p) (equal? (car p) (car r))
+                      (loop (cdr r) (cdr p))))))
            roots))
   (define result
     (let loop ([t tgtdir] [c curdir] [pfx '()])