anchor.diff:    (with-output-to-string (s)
       (with-html-output (s)
         (htm
  -       (:p "Configurations editor"))
  +       (:h1 "Configurations editor"))
         (edit-configuration-schema
          (find-configuration-schema 'cfg::database-configuration-schema)
          s))))
  
positive.code:     (htm
       (:div :class "configuration-schema-editor"
  	   (:div :class "title"
  		 (:h1 (fmt "~A editor" (cfg::title configuration-schema))))
  	   :br
  	   (:form :action (format nil "/editcs?name=~A" (cfg::name configuration-schema))
  		  (loop for section being the hash-values of
  		       (cfg::sections configuration-schema)
  
negative.code:      (:div :class "section"
  	   :id (format nil "section#~A" (cfg::name section))
  	   (:div :class "title"
  		 (:h3 (str (cfg::title section))))
  	   (:table :class "section"
  		   (:tbody
  		    (loop for option being the hash-values of (cfg::direct-options section)
  