anchor.diff:    (declare (ignore fm))
     (sheet-adopt-child (frame-top-level-sheet frame) (frame-pane frame))
     (sheet-adopt-child (graft frame) (frame-top-level-sheet frame))
  -  (let ((space (compose-space (frame-top-level-sheet frame))))
  +  (let* ((space (compose-space (frame-top-level-sheet frame)))
  +	 (bbox (or (slot-value frame 'user-supplied-geometry)
  +		   (make-bounding-rectangle 0 0
  +					    (space-requirement-width space)
  +					    (space-requirement-height space)))))
       ;; automatically generates a window-configuation-event
       ;; which then calls allocate-space
       ;;
  
positive.code: 	     (:command-definer (setq command-definer (first values)))
  	     (:top-level (setq top-level (first values)))
  	     (:pointer-documentation (setq pointer-documentation (car values)))
  	     (t (push (cons prop values) others))))
      (if (or (and pane panes)
  	    (and pane layouts))
  
negative.code: 				(symbol-name '#:define-)
  				(symbol-name name)
  				(symbol-name '#:-command))))
  	(pointer-documentation nil)
  	(geometry nil))
      (loop for (prop . values) in options
  	do (case prop
  	     (:pane (setq pane (first values)))
  