Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -41,17 +41,10 @@
 	rmtmod
 	(prefix mtargs args:))
 
 (include "common_records.scm")
 
-(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))
-    dname))
-
 (define (remove-files filespec)
   (let ((files (glob filespec)))
     (for-each delete-file files)))
 
 (define (stop-the-train)

Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -160,10 +160,17 @@
 	'()))) ;; 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))
+    dname))
 
 ;; dot-locking egg seems not to work, using this for now
 ;; if lock is older than expire-time then remove it and try again
 ;; to get the lock
 ;;