anchor.diff:               (length marks)
                (length suggestions)))
       ((not marks)
  -     (format nil "[~a]"
  +     (format nil "[~a~a]"
  +             (if multi-selection-p
  +                 "0/"
  +                 "")
                (length suggestions)))))
   
   (defun prompt-render-prompt (prompt-buffer)
  
positive.code:      (ps:ps
         (setf (ps:chain document (get-element-by-id "prompt-extra") |innerHTML|)
               (ps:lisp
                (suggestion-and-mark-count prompt-buffer suggestions marks)))
         (setf (ps:chain document (get-element-by-id "prompt-modes") |innerHTML|)
               (ps:lisp
                (format nil "~{~a~^ ~}" (delete "prompt-buffer"
  
negative.code:   ;; Destroy prompter last, or else `return-function' may not work.
    (prompter:destroy prompt-buffer))
  
  (defun suggestion-and-mark-count (prompt-buffer suggestions marks
                                    &key multi-selection-p)
    (cond
      ((not suggestions)
       "")
  