anchor.diff:  	     (let ((regexp (getf token :regexp))
   		   (key (getf token :key)))
   	       (multiple-value-bind (start end) (scan regexp uri)
  -		 (setf (gethash key map) (subseq uri start end))
  +		 (setf (gethash key map) (hunchentoot:url-decode (subseq uri start end)))
   		 (setf uri (subseq uri end))))
   	     (multiple-value-bind (start end) (scan token uri)  ;;else
   	       (declare (ignore start))
  
positive.code: (defun create-rest-dispatcher (schema method fun)
    "Creates a hunchentoot compatible dispatcher for a given url SCHEMA and request METHOD which will call the FUN function on match and hands over a parameter map hashtable"
    (let* ((uri (schema->regexpurl schema)))
      #'(lambda (request)
  	(when (and
  	       (equal method
  		      (request-method request))
  	       (scan uri (request-uri request)))
  	  #'(lambda () ;return a handler fun
  	      
  	      (let ((reqmethod (request-method *request*))
  		    (parameters (parse-uri schema (request-uri *request*))))
  
negative.code:     (loop for i in holders with n = -1 do
  	 (push i result)
  	 (push (nth (incf n) parameters) result))
      (remove-if #'(lambda (x)
  		   (or (null x)
  		       (= 0 (length x))))
  	       (nreverse result))))
  
  (defun parse-uri (schema uri)
    "Parses URI against SCHEMA and returns a hashtable with all pathvariable bindings"
  