@@ -742,11 +742,12 @@
 					 ;; (iup:attribute-set! steps-matrix "FIXTOTEXT" "C1")
 					 (iup:attribute-set! steps-matrix "RESIZEMATRIX" "YES")
 					 (let ((proc
 						(lambda (testdat)
 						  (let ((max-row 0))
-						  (if (not (null? teststeps))
+						  (if (null? teststeps)
+						      (iup:attribute-set! steps-matrix "CLEARVALUE" "CONTENTS")
 						      (let loop ((hed    (car teststeps))
 								 (tal    (cdr teststeps))
 								 (rownum 1)
 								 (colnum 1))
 							  (if (> rownum max-row)(set! max-row rownum))