anchor.diff:  	       "Non-hexidecimal digits after %: %c%c." ch ch2))
   	    (let ((ci (+ (* 16 chc) chc2)))
   	      (if* (or (null reserved-chars)
  -                       (and (< ci (length reserved-chars))
  -                            (= 0 (sbit reserved-chars ci))))
  +		       (> ci 127)	; bug11527
  +		       (= 0 (sbit reserved-chars ci)))
   		 then ;; ok as is
   		      (setf (char new-string new-i)
   			(code-char ci))
  
positive.code: 	     (:colon (failure))
  	     (:question (failure))
  	     (:hash (failure))
  	     (:slash (failure))
  	     (:string (setq host tokval)
  		      (setq state 11))
  	     (:end (failure))))
  
negative.code: ;;;;The rfc says this should be here, but it doesn't make sense.
  	       ;; #\=
  	       #\/ #\?))))
  
  (defparameter *reserved-fragment-characters*
      (reserved-char-vector (remove #\# *excluded-characters*)))
  
  