diff --git a/ice-9/format.scm b/ice-9/format.scm
index 393c31d11..b116687b8 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -94,7 +94,7 @@
   (do ((k i (+ k 1)))
       ((= k n))
     (write-char (string-ref str k) format:port))
-  (set! format:output-col (+ format:output-col n)))
+  (set! format:output-col (+ format:output-col (- n i))))
 
 ;(define (format:out-fill n ch)       ; this allocates a new string
 ;  (format:out-str (make-string n ch)))