diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0bfe340fe4..b696ad971a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-19  Miles Bader  <Miles Bader <miles@gnu.org>>
+
+	* comint.el (comint-output-filter): Make field properties for
+	output text front-sticky.
+
 2008-09-18  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-bzr.el (vc-bzr-show-log-entry):
diff --git a/lisp/comint.el b/lisp/comint.el
index 917565dd157..6231a20b65a 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1774,7 +1774,9 @@ Make backspaces delete the previous character."
               (let ((inhibit-read-only t)
 		    (inhibit-modification-hooks t))
                 (add-text-properties comint-last-output-start (point)
-                                     '(rear-nonsticky t
+                                     '(front-sticky
+				       (field inhibit-line-move-field-capture)
+				       rear-nonsticky t
 				       field output
 				       inhibit-line-move-field-capture t))))