anchor.diff:          (history-forwards))))
   
   (define-class history-forwards-source (prompter:source)
  -  ((prompter:name "Child URLs")
  +  ((prompter:name "All children URLs of the current forward-branch")
      (buffer :initarg :buffer :accessor buffer :initform nil)
      (prompter:constructor
       (lambda (source)
  
positive.code:       (load-history-url input))))
  
  (define-class direct-history-forwards-source (prompter:source)
    ((prompter:name "Direct child URLs")
     (buffer :initarg :buffer :accessor buffer :initform nil)
     (prompter:constructor
      (lambda (source)
  
negative.code:       (load-history-url input))))
  
  (define-class history-all-source (prompter:source)
    ((prompter:name "All history URLs")
     (buffer :initarg :buffer :accessor buffer :initform nil)
     (prompter:constructor
      (lambda (source)
  