Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.302
diff -u -u -F(def -r1.302 slime.el
--- slime.el	16 May 2004 23:33:50 -0000	1.302
+++ slime.el	19 May 2004 14:58:46 -0000
@@ -2128,8 +2128,7 @@ (defun slime-repl-current-input ()
   (buffer-substring-no-properties slime-repl-input-start-mark
                                   (save-excursion
                                     (goto-char slime-repl-input-end-mark)
-                                    (when (and (eq (char-before) ?\n)
-                                               (not (slime-reading-p)))
+                                    (when (eq (char-before) ?\n)
                                       (backward-char 1))
                                     (point))))