--- gutter-items.el~	Fri Mar 24 19:09:17 2000
+++ gutter-items.el	Tue Mar 28 15:41:41 2000
@@ -639,7 +639,7 @@
 	  ;; do some funky display here.
 	  (set-extent-begin-glyph ext progress-abort-glyph)
 	  ;; fixup the gutter specifiers
-	  (set-gutter-element bottom-gutter 'progress ext frame)
+	  (set-gutter-element bottom-gutter 'progress gutter-string frame)
 	  (set-specifier bottom-gutter-border-width 2 frame)
 	  (set-image-instance-property 
 	   (glyph-image-instance progress-text-glyph
@@ -653,7 +653,7 @@
 	  (sit-for progress-display-popup-period nil)
 	  (clear-progress-display label frame)
 	  (set-extent-begin-glyph ext progress-layout-glyph)
-	  (set-gutter-element bottom-gutter 'progress ext frame)
+	  (set-gutter-element bottom-gutter 'progress gutter-string frame)
 	  )))))
 
 (defun raw-append-progress-display (message &optional value frame)