Index: configfmod.scm
==================================================================
--- configfmod.scm
+++ configfmod.scm
@@ -1022,11 +1022,11 @@
 ;;======================================================================
 ;; Config file handling
 ;;======================================================================
 
 ;; convert to param?
-(define configf:std-imports "(import scheme big-chicken system-information simple-exceptions big-chicken configfmod commonmod rmtmod chicken.process-context.posix)(import (prefix mtargs args:))(define getenv get-environment-variable)")
+(define configf:std-imports "(import scheme big-chicken system-information simple-exceptions big-chicken configfmod commonmod rmtmod testsmod srfi-69 chicken.process-context.posix)(import (prefix mtargs args:))(define getenv get-environment-variable)")
 
 (define (configf:process-one matchdat l ht allow-system env-to-use linenum)
   (let* ((prestr  (list-ref matchdat 1))
 	 (cmdtype (list-ref matchdat 2)) ;; eval, system, shell, getenv
 	 (cmd     (list-ref matchdat 3))
@@ -1038,11 +1038,11 @@
 	 (fullcmd
 	  (if (member cmdsym '(scheme scm))
 	      `(eval-needed
 		,(conc  "(lambda (ht)"
 			configf:std-imports
-			"(set! *toppath* \""(configf:lookup ht "toppath" "toppath")"\")"
+			;; "(set! *toppath* \""(configf:lookup ht "toppath" "toppath")"\")"
 			cmd ")"))
 	      (case cmdsym
 		((system)     `(noeval-needed  ,(conc (configf:system ht cmd))))
 		;; ((shell sh)   `(noeval-needed  ,(conc (string-translate (shell quotedcmd) "\n" " "))))
 		((shell sh)   `(noeval-needed  ,(conc (string-translate (shell cmd) "\n" " "))))
@@ -1057,10 +1057,11 @@
 		   (debug:print-error 0 *default-log-port* "#{get ...} used with only one parameter, \"" cmd "\", two needed.")
 		   '(bad-param ,(conc "#{get ...} used with only one parameter, \"" cmd "\", two needed.")))))
 		;;((runconfigs-get rget) `(noeval-needed ,(runconfigs-get ht quotedcmd))) ;; (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 		((runconfigs-get rget) `(noeval-needed ,(runconfigs-get ht cmd))) ;; (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 		(else `(#f ,(conc "cmd: " cmd " not recognised")))))))
+     
      (match
      fullcmd
      (('eval-needed newres)
 	 (if (or allow-system
 		 (not (member cmdtype '("system" "shell" "sh"))))