@@ -773,11 +773,11 @@
 				     given-toppath: toppath
 				     pathenvvar: "MT_RUN_AREA_HOME"))
 	     (first-rundat  (let ((toppath (if toppath 
 					       toppath
 					       (car first-pass))))
-			      (read-config ;; (conc toppath "/runconfigs.config")
+			      (read-config ;; (conc toppath "/runconfigs.config") ;; this should be converted to runconfig:read but it is non-trivial, leaving it for now.
 			       (conc (if (string? toppath)
 					 toppath
 					 (get-environment-variable "MT_RUN_AREA_HOME"))
 				     "/runconfigs.config")
 			       *runconfigdat* #t 
@@ -806,11 +806,11 @@
 				    pathenvvar: "MT_RUN_AREA_HOME"))
 		     (runconfigdat (begin     ;; this read of the runconfigs will see any adjustments made by re-reading megatest.config
 				     (for-each (lambda (kt)
 						 (setenv (car kt) (cadr kt)))
 					       key-vals)
-				     (read-config (conc toppath "/runconfigs.config") *runconfigdat* #t 
+				     (read-config (conc toppath "/runconfigs.config") *runconfigdat* #t ;; consider using runconfig:read some day ...
 						  sections: sections))))
 		(if cancreate (configf:write-alist runconfigdat rccachef))
 		(set! *runconfigdat* runconfigdat)
 		(if cancreate (configf:write-alist *configdat* mtcachef))
 		(if cancreate (set! *configstatus* 'fulldata))))
@@ -824,11 +824,11 @@
 			environ-patt: "env-override"
 			given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
 			pathenvvar: "MT_RUN_AREA_HOME")))
 	(if cfgdat
 	    (let* ((toppath  (or (get-environment-variable "MT_RUN_AREA_HOME")(cadr cfgdat)))
-		   (rdat     (read-config (conc toppath
+		   (rdat     (read-config (conc toppath  ;; convert this to use runconfig:read!
 						"/runconfigs.config") *runconfigdat* #t sections: sections)))
 	      (set! *configinfo*   cfgdat)
 	      (set! *configdat*    (car cfgdat))
 	      (set! *runconfigdat* rdat)
 	      (set! *toppath*      toppath)