@@ -96,10 +96,11 @@
 			  (append targlist (make-list (- numkeys numtarg) ""))
 			  targlist)))
     (map (lambda (key targ)
 	   (list (vector-ref key 0) targ))
 	 keys targtweaked)))
+
 
 ;;======================================================================
 ;; key <=> args routines
 ;;======================================================================
 
@@ -109,11 +110,16 @@
 ;; withkey => (:key1 val1 :key2 val2 :key3 val3 ...)
 (define (keys->vallist keys . withkey) ;; ORDERING IS VERY IMPORTANT, KEEP PROPER ORDER HERE!
   (let* ((keynames   (map key:get-fieldname keys))
 	 (argkeys    (map (lambda (k)(conc ":" k)) keynames))
 	 (withkey    (not (null? withkey)))
-	 (newremargs (args:get-args (cons "blah" remargs) argkeys '() args:arg-hash 0))) ;; the cons blah works around a bug in args [args assumes ("calling-prog-name" .... ) ]
+	 (newremargs (args:get-args 
+		      (cons "blah" remargs) ;; the cons blah works around a bug in args [args assumes ("calling-prog-name" .... ) ]
+		      argkeys 
+		      '()
+		      args:arg-hash 
+		      0)))
     ;;(debug:print 0 "remargs: " remargs " newremargs: " newremargs)
     (apply append (map (lambda (x)
 			 (let ((val (args:get-arg x)))
 			   ;; (debug:print 0 "x: " x " val: " val)
 			   (if (not val)