anchor.diff:  
   (defun new-buffer-load (url)
     "Load a URL in a new buffer."
  -  (make-buffer-focus :url url))
  +  (make-buffer-focus :url (url url)))
   
   (defun new-nosave-buffer-load (url)
     "Load a URL in a new nosave buffer."
  -  (make-buffer-focus :url url :nosave-buffer-p t))
  +  (make-buffer-focus :url (url url) :nosave-buffer-p t))
   
   (defun new-buffer-load-from-history (history-suggestion)
     "Load a URL in a new buffer (from history)."
  
positive.code:    :prompt "Open URL"
     :input (if prefill-current-url-p
                (render-url (url (current-buffer))) "")
     :sources (list (make-instance 'prompter:raw-source
                                   :name "New URL"
                                   :actions (list (make-unmapped-command buffer-load)
                                                  (make-unmapped-command new-nosave-buffer-load)))
  
negative.code:      :input (if prefill-current-url-p
                  (render-url (url (current-buffer))) "")
       :history history
       :sources (list (make-instance 'new-url-or-search-source
                                     :actions (list (make-unmapped-command new-buffer-load)))
                      (make-instance 'global-history-source
                                     :actions (list (make-unmapped-command new-buffer-load-from-history)))
  