@@ -311,12 +311,11 @@
 (if (args:get-arg "-rollup")
     (general-run-call 
      "-rollup" 
      "rollup tests" 
      (lambda (db keys keynames keyvallst)
-       (let ((n (args:get-arg "-rollup")))
-	 (runs:rollup-run db keys)))))
+       (runs:rollup-run db keys))))
 
 ;;======================================================================
 ;; Extract a spreadsheet from the runs database
 ;;======================================================================