diff --git a/hemlock/tty-display.lisp b/hemlock/tty-display.lisp
index 02a09f383ed4129d36d8ccc264d0dad963a24132..f31e970f4347604a8c40ddde05630fc7c8386ba7 100644
--- a/hemlock/tty-display.lisp
+++ b/hemlock/tty-display.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-display.lisp,v 1.1.1.9 1991/09/23 09:27:09 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-display.lisp,v 1.1.1.10 1991/10/30 08:22:37 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -243,7 +243,9 @@
 	      (i (+ *hunk-top-line* i) (1+ i)))
 	     ((> i last))
 	   (declare (fixnum i last))
-	   (setf (si-line-length (si-line screen-image i)) 0)))
+	   (let ((si-line (si-line screen-image i)))
+	     (setf (si-line-length si-line) 0)
+	     (setf (si-line-fonts si-line) nil))))
       (tty-dumb-line-redisplay device hunk (car dl) i))
     (setf (window-first-changed window) the-sentinel
 	  (window-last-changed window) first)
@@ -515,6 +517,7 @@
 	      (declare (fixnum ,insert-index ,free-lines-index ,n))
 	      (let ((,temp (si-line *screen-image-temp* ,free-lines-index)))
 		(setf (si-line-length ,temp) 0)
+		(setf (si-line-fonts ,temp) nil)
 		(setf (si-line ,do-screen-image ,insert-index) ,temp)))
 	    (decf ,fsil ,num))
 	 (declare (fixnum ,target-terminus ,source-index ,target-index))
@@ -773,7 +776,8 @@
       (let ((si-line (si-line screen-image si-idx)))
 	(unless (zerop (si-line-length si-line))
 	  (funcall clear-to-eol hunk 0 y)
-	  (setf (si-line-length si-line) 0))))))
+	  (setf (si-line-length si-line) 0)
+	  (setf (si-line-fonts si-line) nil))))))
 
 ;;; NOTE-LINE-MOVES  --  Internal
 ;;;