@@ -1257,11 +1257,11 @@
 ;;  S T E P S
 ;;======================================================================
 
 (define (dcommon:populate-steps teststeps steps-matrix)
   (let ((max-row 0)
-	(max-col 7))
+	(max-col 9))
     (if (null? teststeps)
 	(iup:attribute-set! steps-matrix "CLEARVALUE" "CONTENTS")
 	(let loop ((hed    (car teststeps))
 		   (tal    (cdr teststeps))
 		   (rownum 1)