anchor.diff:  (defun init-user-session (root)
     (unless *initial-poem*
       (setf *initial-poem* (find-poem-by-start "I went to the woods")))
  -  (let ((main-page (make-start-page)))
  +  (let ((main-page (make-start-page)))  ; make-start-page at the end of this file
       (setf (widget-children root)
             (make-instance 'on-demand-selector
                            :lookup-function (lambda (selector tokens)
  
positive.code:                                             " (may not work)"))))
                   :on-login #'check-login))
  
  ;;;
  
  nil
  
negative.code:                                             (if (string= (first tokens) "impressum")
                                                  (values (md "impressum.md") tokens nil nil)
                                                  (values main-page nil tokens nil)))))))
  
  ;;; Fun (i.e., trying things out)
  
  