Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -859,11 +859,11 @@
 ;; Get test paths matching target, runname, and testpatt
 (if (or (args:get-arg "-test-files")(args:get-arg "-test-paths"))
     ;; if we are in a test use the MT_CMDINFO data
     (if (getenv "MT_CMDINFO")
 	(let* ((startingdir (current-directory))
-	       (cmdinfo   (commond:read-encoded-string (getenv "MT_CMDINFO")))
+	       (cmdinfo   (common:read-encoded-string (getenv "MT_CMDINFO")))
 	       (testpath  (assoc/default 'testpath  cmdinfo))
 	       (test-name (assoc/default 'test-name cmdinfo))
 	       (runscript (assoc/default 'runscript cmdinfo))
 	       (db-host   (assoc/default 'db-host   cmdinfo))
 	       (run-id    (assoc/default 'run-id    cmdinfo))