anchor.diff:           (labelling (:label (title configuration-schema))
              (vertically ()
                (labelling (:label "Overview")
  -             (make-pane 'application-pane
  -                        :height 100
  -                        :display-function
  -                        (lambda (frame pane)
  -                          (declare (ignore frame))
  +               (make-pane 'application-pane
  +                          :height 100
  +                          :display-function
  +                          (lambda (frame pane)
  +                            (declare (ignore frame))
                             
                               (format pane "~A" (cfg::documentation* configuration-schema))
                               (let ((parents (slot-value configuration-schema 'cfg::parents)))
  
positive.code:                                           :contents
                                            (loop for option-schema being the hash-values of (cfg::direct-options section)
                                               collect
                                               (mapcar #'label
                                                       (list
                                                        (prin1-to-string (cfg::name option-schema))
                                                        (title option-schema)
                                                        (if (cfg::optional option-schema)
                                                            "Yes" "No")
                                                        (if (slot-boundp option-schema 'cfg::default)
                                                            (prin1-to-string (cfg::default option-schema))
                                                            "--")
                                                        (if (cfg::advanced option-schema)
                                                            "Yes" "No")
                                                        (or (cfg::documentation* option-schema) "")))))))))))))))
  
  (define-application-frame configuration-editor ()
    ((configuration :initarg :configuration
  
negative.code:     ((configuration-schema 'configuration-schema))
    (sb-thread:make-thread (lambda ()
                             (run-frame-top-level
                              (make-application-frame 'configuration-schema-viewer
                                                      :configuration-schema configuration-schema)))))
    
  (defun run-configuration-editor (configuration)
    (run-frame-top-level
  