@@ -336,11 +336,15 @@
 (if (args:get-arg "-rollup")
     (general-run-call 
      "-rollup" 
      "rollup tests" 
      (lambda (db keys keynames keyvallst)
-       (runs:rollup-run db keys))))
+       (runs:rollup-run db
+			keys
+			(keys->alist keys "na")
+			(args:get-arg ":runname") 
+			user))))
 
 ;;======================================================================
 ;; Extract a spreadsheet from the runs database
 ;;======================================================================