@@ -41,11 +41,12 @@
 
 Values and record errors and warnings
   -set-values             : update or set values in the megatest db 
   :value                  : value measured
   :expected_value         : value expected
-  :tol                    : tolerance |value-expect| <= tol
+  :tol                    : |value-expect| <= tol
+  :units                  : name of the units for value, expected_value and tol
   :first_err              : record an error message
   :first_warn             : record a warning message
 
 Queries
   -list-runs patt         : list runs matching pattern \"patt\", % is the wildcard
@@ -109,10 +110,11 @@
 			":first_err"
 			":first_warn"
 			":value"
 			":expected_value"
 			":tol"
+			":units"
 			;; misc
 			"-debug" ;; for *verbosity* > 2
 			) 
 		 (list  "-h"
 		        "-force"
@@ -648,11 +650,11 @@
 		    ;; could use an assoc list I guess. 
 		    (otherdata (let ((res (make-hash-table)))
 				 (for-each (lambda (key)
 					     (if (args:get-arg key)
 						 (hash-table-set! res key (args:get-arg key))))
-					   (list ":value" ":tol" ":expected_value" ":first_err" ":first_warn"))
+					   (list ":value" ":tol" ":expected_value" ":first_err" ":first_warn" ":units"))
 				 res)))
 		(if (and (args:get-arg "-test-status")
 			 (or (not state)
 			     (not status)))
 		    (begin