diff --git a/code/pprint.lisp b/code/pprint.lisp
index 1b8efc65dede63e6319428a734bf1561cfa69dcf..50d1b10b441dcf707fb6544523d97eda7ffda2e1 100644
--- a/code/pprint.lisp
+++ b/code/pprint.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.36 2004/08/28 04:39:10 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pprint.lisp,v 1.37 2004/08/28 05:13:35 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -389,11 +389,14 @@
 	(colnum (tab-colnum tab))
 	(colinc (tab-colinc tab)))
     (cond ((tab-relativep tab)
-	   (unless (<= colinc 1)
-	     (let ((newposn (+ column colnum)))
-	       (let ((rem (rem newposn colinc)))
-		 (unless (zerop rem)
-		   (incf colnum (- colinc rem))))))
+	   (cond ((tab-sectionp tab)
+		  (setf colnum (* colinc (ceiling colnum colinc))))
+		 (t
+		  (unless (<= colinc 1)
+		    (let ((newposn (+ column colnum)))
+		      (let ((rem (rem newposn colinc)))
+			(unless (zerop rem)
+			  (incf colnum (- colinc rem))))))))
 	   colnum)
 	  ((< column (+ colnum origin))
 	   (- (+ colnum origin) column))