@@ -219,11 +219,12 @@
     (let ((category (hash-table-ref/default otherdat ":category" ""))
 	  (variable (hash-table-ref/default otherdat ":variable" ""))
 	  (value    (hash-table-ref/default otherdat ":value"    #f))
 	  (expected (hash-table-ref/default otherdat ":expected" #f))
 	  (tol      (hash-table-ref/default otherdat ":tol"      #f))
-	  (units    (hash-table-ref/default otherdat ":units"    "")))
+	  (units    (hash-table-ref/default otherdat ":units"    ""))
+	  (dcomment (hash-table-ref/default otherdat ":comment"  "")))
       (debug:print 4 
 		   "category: " category ", variable: " variable ", value: " value
 		   ", expected: " expected ", tol: " tol ", units: " units)
       (if (and value expected tol) ;; all three required
 	  (db:csv->test-data db test-id 
@@ -231,11 +232,11 @@
 				   variable ","
 				   value    ","
 				   expected ","
 				   tol      ","
 				   units    ","
-				   comment  ","))))
+				   dcomment ","))))
 				   
     ;; need to update the top test record if PASS or FAIL and this is a subtest
     (if (and (not (equal? item-path ""))
 	     (or (equal? status "PASS")
 		 (equal? status "WARN")