Index: /branches/ide-1.0/ccl/hemlock/src/listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/listener.lisp	(revision 6772)
+++ /branches/ide-1.0/ccl/hemlock/src/listener.lisp	(revision 6773)
@@ -692,17 +692,16 @@
     (mark-symbol mark1 mark2)
     (with-input-from-region (s (region mark1 mark2))
-      (in-lisp
-       (let ((thing (read s)))
-	 (if (symbolp thing)
-	     (with-pop-up-display (*standard-output*)
-	       (describe thing))
-	     (if (and (consp thing)
-		      (or (eq (car thing) 'quote)
-			  (eq (car thing) 'function))
-		      (symbolp (cadr thing)))
-		 (with-pop-up-display (*standard-output*)
-		   (describe (cadr thing)))
-		 (editor-error "~S is not a symbol, or 'symbol, or #'symbol."
-			       thing))))))))
+      (let ((thing (read s)))
+        (if (symbolp thing)
+          (with-pop-up-display (*standard-output*)
+            (describe thing))
+          (if (and (consp thing)
+                   (or (eq (car thing) 'quote)
+                       (eq (car thing) 'function))
+                   (symbolp (cadr thing)))
+            (with-pop-up-display (*standard-output*)
+              (describe (cadr thing)))
+            (editor-error "~S is not a symbol, or 'symbol, or #'symbol."
+                          thing)))))))
 
 ;;; MARK-SYMBOL moves mark1 and mark2 around the previous or current symbol.