@@ -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)