@@ -43,11 +43,11 @@
 	    (for-each (lambda (key val)
 			(setenv key val)
 			(if ht (hash-table-set! ht (conc ":" key) val)))
 		      keys
 		      vals)
-	    (debug:print 0 *default-log-port* "ERROR: wrong number of values in " target ", should match " keys))
+	    (debug:print-error 0 *default-log-port* "wrong number of values in " target ", should match " keys))
 	vals)
       (debug:print 4 *default-log-port* "ERROR: keys:target-set-args called with no target.")))
 
 ;; given the keys (a list of vectors <key field> or a list of keys) and a target return a keyval list
 ;; keyval list ( (key1 val1) (key2 val2) ...)