Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.125
diff -p -u -w -r1.125 slime.el
--- slime.el	2 Dec 2003 13:55:47 -0000	1.125
+++ slime.el	3 Dec 2003 17:35:07 -0000
@@ -2565,13 +2641,13 @@ package is used."
   ;; the minibuffer.
   (ecase flag
     ((nil) 
-     (let* ((completions (slime-completions string default-package)))
+     (let* ((completions (car (slime-completions string default-package))))
        (try-completion string
 		       (slime-bogus-completion-alist completions))))
     ((t)
-     (slime-completions string default-package))
+     (car (slime-completions string default-package)))
     ((lambda)
-     (member string (slime-completions string default-package)))))
+     (member string (car (slime-completions string default-package))))))
 
 (defun slime-completing-read-symbol-name (prompt &optional initial-value)
   "Read the name of a CL symbol, with completion.  
@@ -2880,7 +2956,7 @@ First make the variable unbound, then ev
   (when (not symbol-name)
     (error "No symbol given"))
   (slime-eval-describe 
-   `(swank:documentation-symbol ,symbol-name "(not documented))")))
+   `(swank:documentation-symbol ,symbol-name "(not documented)")))
 
 (defun slime-describe-function (symbol-name)
   (interactive (list (slime-read-symbol-name "Describe symbol: ")))