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:                               (create-scanner match :single-line-mode t)))
                 (replacement (when-let (replacement (get-parameter "replacement"))
                                (create-scanner replacement :single-line-mode t))))
             (format nil "~S" (remove-if (lambda (update)
                                           (or (when operation
                                                 (not (eq operation     (qsu-operation   update))))
                                               (when name
                                                 (not (scan name        (qsu-name        update))))
                                               (when new-name
                                                 (not (scan new-name    (qsu-new-name    update))))
                                               (when match
                                                 (not (scan match       (qsu-match       update))))
                                               (when replacement
                                                 (not (scan replacement (qsu-replacement update))))))
                                         (rr-qs-updates rule)))))))
  
  (defun admin-handler (redirection-acceptor)
    "Management handler."
  
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)
  