anchor.diff:  	      (symbol-name scheme))
   	     *reserved-characters* escape))
   	  (when scheme ":")
  -	  (when host "//")
  +	  (when (or host (eq :file scheme)) "//")
   	  (when host
   	    (encode-escaped-encoding
   	     host *reserved-authority-characters* escape))
  
positive.code: 	     (:colon (failure))
  	     (:question (failure))
  	     (:hash (failure))
  	     (:slash (failure))
  	     (:string (setq host tokval)
  		      (setq state 11))
  	     (:end (failure))))
  
negative.code: 	       "Non-hexidecimal digits after %: %c%c." ch ch2))
  	    (let ((ci (+ (* 16 chc) chc2)))
  	      (if* (or (null reserved-chars)
  		       (> ci 127)	; bug11527
  		       (= 0 (sbit reserved-chars ci)))
  		 then ;; ok as is
  		      (setf (char new-string new-i)
  			(code-char ci))
  