@@ -302,22 +302,18 @@
 ;;    - step completed, exit status, timestamp
 ;; 6. test phone home
 ;;    - if test run time > allowed run time then kill job
 ;;    - if cannot access db > allowed disconnect time then kill job
 
-
-(define (runtests)
+(if (args:get-arg "-runtests")
   (general-run-call 
    "-runtests" 
    "run a test" 
    (lambda (db keys keynames keyvallst)
      (let ((test-names (string-split (args:get-arg "-runtests") ",")))
        (run-tests db test-names)))))
 
-(if (args:get-arg "-runtests")
-    (runtests))
-
 ;;======================================================================
 ;; execute the test
 ;;    - gets called on remote host
 ;;    - receives info from the -execute param
 ;;    - passes info to steps via MT_CMDINFO env var (future is to use a dot file)