diff --git a/command-functions.lisp b/command-functions.lisp
index 6dc82502dbecd80398217ff3e65564db38bfc824..2d3cb2df1717bde440a800ac4a702cab791b2b59 100644
--- a/command-functions.lisp
+++ b/command-functions.lisp
@@ -350,5 +350,4 @@
   (declare (ignore chord))
   (print-in-lines editor
 		  (with-output-to-string (s)
-		    (describe (find-symbol (string-upcase
-					    (editor-word editor))) s))))
+		    (describe (read-from-string (editor-word editor)) s))))