anchor.diff:  
           ((starts-with-subseq "/save-rules" (script-name* *request*))
            (save-rules redirection-acceptor (post-parameter "name" *request*))
  -         "OK")
  +         "OK
  +")
   
           ((starts-with-subseq "/domain-name-rule/" (script-name* *request*))
            (admin-domain-name-rules-handler% (subseq (script-name* *request*) 17)
  
positive.code:                                          (get-parameter "domain-name-match" *request*)
                                           :error-p t)))
         (admin-query-string-handler% (subseq path 21) rule)))
  ))
  
  (defun admin-uri-rules-handler% (path domain-name-rule)
    "Handler for URI rules management."
  
negative.code:                                         (get-parameter "match")
                                          :error-p t)))
         (update-rule% rule (post-parameters* *request*)))
       "OK
  ")
  
      ((starts-with-subseq "/query-string-updates/" path)
       (let ((rule  (find-domain-name-rule (redirection-acceptor-rules redirection-acceptor)
  