cl-mvc-rest/cl-mvc-rest-uri

diff --git a/str.lisp b/str.lisp
index b788be8..7f67ed2 100644
--- a/str.lisp
+++ b/str.lisp
@@ -24,9 +24,10 @@
        (cond
 	 ,@(mapcar (lambda (case-decl)
 		     (destructuring-bind (match &rest match-body) case-decl
-		       (if (stringp match)
-			   `((find ,g!char ,match) ,@match-body)
-			   `(,match ,@match-body))))
+		       (typecase match
+			 (string `((find ,g!char ,match) ,@match-body))
+			 (null `((null ,g!char) ,@match-body))
+			 (t `(,match ,@match-body)))))
 		   cases)))))
 
 (defun rope-merge (rope)