anchor.diff:  (define-command lisp-describe-symbol () ()
     (check-connection)
     (let ((symbol-name
  -          (read-symbol-name "Describe symbol: "
  +          (prompt-for-symbol-name "Describe symbol: "
                               (or (symbol-string-at-point (current-point)) ""))))
       (when (string= "" symbol-name)
         (editor-error "No symbol given"))
  
positive.code: (defun find-references ()
    (check-connection)
    (let* ((name (or (symbol-string-at-point (current-point))
                     (read-symbol-name "Edit uses of: ")))
           (data (lisp-eval `(swank:xrefs '(:calls :macroexpands :binds
                                            :references :sets :specializes)
                                          ,name))))
  
negative.code:         (declare (ignore timeout-p))
          (completion-hypheen str (mapcar #'first completions))))))
  
  (defun prompt-for-symbol-name (prompt &optional (initial ""))
    (let ((package (current-package)))
      (prompt-for-line prompt
                       initial
  