@@ -431,25 +431,26 @@
 				      #:font "Courier New, -10"
 				      #:size "100x100")))
 		   (hash-table-set! widgets "Test Data"
 				    (lambda (testdat) ;; 
 				      (let* ((currval (iup:attribute test-data "VALUE")) ;; "TITLE"))
-					     (fmtstr  "~10a~10a~10a~10a~7a~7a~6a~a") ;; category,variable,value,expected,tol,units,comment
+					     (fmtstr  "~10a~10a~10a~10a~7a~7a~6a~6a~a") ;; category,variable,value,expected,tol,units,type,comment
 					     (newval  (string-intersperse 
 						       (append
 							(list 
-							 (format #f fmtstr "Category" "Variable" "Value" "Expected" "Tol" "Status" "Units" "Comment")
-							 (format #f fmtstr "========" "========" "=====" "========" "===" "======" "=====" "======="))
+							 (format #f fmtstr "Category" "Variable" "Value" "Expected" "Tol" "Status" "Units" "Type" "Comment")
+							 (format #f fmtstr "========" "========" "=====" "========" "===" "======" "=====" "====" "======="))
 							(map (lambda (x)
 							       (format #f fmtstr
 								       (db:test-data-get-category x)
 								       (db:test-data-get-variable x)
 								       (db:test-data-get-value    x)
 								       (db:test-data-get-expected x)
 								       (db:test-data-get-tol      x)
 								       (db:test-data-get-status   x)
 								       (db:test-data-get-units    x)
+								       (db:test-data-get-type     x)
 								       (db:test-data-get-comment  x)))
 							     (db:read-test-data db test-id "%")))
 						       "\n")))
 					(if (not (equal? currval newval))
 					    (iup:attribute-set! test-data "VALUE" newval ))))) ;; "TITLE" newval)))))