Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1063,11 +1063,11 @@
 	 (target (or target-in   (common:args-get-target))) ;; eventually get rid of the call to common:args-get-target
 	 (runname (or runname-in
 		      (args:get-arg "-runname"))) ;; eventually get rid of the get-arg calls
 	 (testpatt (or (args:get-arg "-testpatt")
 		       (and (eq? action 'archive) ;; if it is an archive command fallback to MT_TEST_NAME and MT_ITEMPATH
-			    (common:get-full-testname))
+			    (common:get-full-test-name))
 		       (and (eq? action 'kill-runs)
 			    "%/%") ;; I'm just guessing that this is correct :(
 		       (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")))
 		       ))) ;; 
     (cond
@@ -1894,11 +1894,11 @@
     ;; else do a general-run-call
     (general-run-call 
      "-archive"
      "Archive"
      (lambda (target runname keys keyvals)
-       (operate-on 'archive target-in: target runname-in: runame ))))
+       (operate-on 'archive target-in: target runname-in: runname ))))
 
 ;;======================================================================
 ;; Extract a spreadsheet from the runs database
 ;;======================================================================