Index: misc.lisp
===================================================================
--- misc.lisp	(revision 2282)
+++ misc.lisp	(working copy)
@@ -180,7 +180,10 @@
 (defun enough-url (url url-prefix)
   "Returns the relative portion of URL relative to URL-PREFIX, similar
 to what ENOUGH-NAMESTRING does for pathnames."
-  (subseq url (mismatch url url-prefix)))
+  (let ((start (mismatch url url-prefix)))
+    (if start
+        (subseq url start)
+        "")))
 
 (defun create-folder-dispatcher-and-handler (uri-prefix base-path &optional content-type)
   "Creates and returns a dispatch function which will dispatch to a