@@ -50,12 +50,38 @@
 
 (import stml2
 	)
 
 (module commonmod
-	*
+	(
+	 common:get-toppath
+	 common:generic-ssh
+	 common:file-exists?
+	 common:with-env-vars
+	 common:nice-path
+	 common:get-fields
 
+	 ;; globals
+	 *configdat*
+	 *db-access-allowed*
+	 *db-cache-path*
+	 *toppath*
+	 
+	 keys:target-set-args
+
+	 getenv
+	 setenv
+	 safe-setenv
+
+	 get-area-path-signature
+	 common:simple-file-lock
+	 common:low-noise-print
+	 common:get-create-writeable-dir
+	 common:real-path
+	 val->alist
+)
+	
 (import scheme)
 (cond-expand
  (chicken-4
   
   (import chicken
@@ -385,10 +411,11 @@
 (define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state.
 
 ;; environment vars handy stuff from common.scm
 ;;
 (define getenv get-environment-variable)
+
 (define (safe-setenv key val)
   (if (or (substring-index "!" key)
 	  (substring-index ":" key)  ;; variables containing : are for internal use and cannot be environment variables.
 	  (substring-index "." key)) ;; periods are not allowed in environment variables
       (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
@@ -563,13 +590,10 @@
     (if valstr
 	(val->alist valstr)
 	'()))) ;; should it return empty list or #f to indicate not set?
 
 
-(define (get-section cfgdat section)
-  (hash-table-ref/default cfgdat section '()))
-
 (define (common:make-tmpdir-name areapath tmpadj)
   (let* ((area (pathname-file areapath))
          (dname (conc "/tmp/"(current-user-name)"/megatest_localdb/" area "/" (string-translate areapath "/" ".") tmpadj "/.mtdb")))
     (unless (directory-exists? dname)
       (create-directory dname #t))