@@ -117,89 +117,11 @@
 	 (pathname-directory
 	  (pathname-directory 
 	   (pathname-directory exe-path))))
 	#f)))
 
-;;======================================================================
-;; testsuite and area utilites
-;;======================================================================
-
-(define (get-testsuite-name toppath configdat)
-  (or (lookup configdat "setup" "area-name")
-      (lookup configdat "setup" "testsuite")
-      (get-environment-variable "MT_TESTSUITE_NAME")
-      (if (string? toppath)
-          (pathname-file toppath)
-          #f)))
-
-;; need generic find-record-with-var-nmatching-val
-;;
-(define (path->area-record cfgdat path)
-  (let* ((areadat (get-cfg-areas cfgdat))
-	 (all     (filter (lambda (x)
-			    (let* ((keyvals (cdr x))
-				   (pth     (alist-ref 'path keyvals)))
-			      (equal? path pth)))
-			  areadat)))
-    (if (null? all)
-	#f
-	(car all)))) ;; return first match
-
-(define (get-area-name configdat toppath #!optional (short #f))
-  ;; look up my area name in areas table (future)
-  ;; generate auto name
-  (conc (get-area-path-signature toppath short)
-	"-"
-	(get-testsuite-name toppath configdat)))
-
-;; given a config return an alist of alists
-;;   area-name => data
-;;
-(define (get-cfg-areas cfgdat)
-  (let ((adat (get-section cfgdat "areas")))
-    (map (lambda (entry)
-	   `(,(car entry) . 
-	     ,(val->alist (cadr entry))))
-	 adat)))
-
-;;======================================================================
-;; redefine for future cleanup (converge on area-name, the more generic
-;;
-(define common:get-area-name common:get-testsuite-name)
-
-(define (common:get-db-tmp-area . junk)
-  (if *db-cache-path*
-      *db-cache-path*
-      (if *toppath* ;; common:get-create-writeable-dir
-	  (handle-exceptions
-	      exn
-	      (begin
-		(debug:print-error 0 *default-log-port* "Couldn't create path to " *db-cache-path* ", exn=" exn)
-		(exit 1))
-	      (let* ((toppath (common:real-path *toppath*))
-		     (tsname (common:get-testsuite-name))
-		     (dbpath (common:get-create-writeable-dir
-			      (list (conc "/tmp/" (current-user-name)
-					  "/megatest_localdb/"
-					  tsname "/"
-					  (string-translate toppath "/" "."))
-				    (conc "/tmp/" (current-process-id) ;; just in case we have an issue with the dir by own user name
-					  "/"(current-user-name) "/megatest_localdb/"
-					  tsname
-					  (string-translate toppath "/" "."))
-				    ))))
-		(set! *db-cache-path* dbpath)
-		;; ensure megatest area has .mtdb
-		(let ((dbarea (conc *toppath* "/.mtdb")))
-		  (if (not (file-exists? dbarea))
-		      (create-directory dbarea)))
-		;; ensure tmp area has .mtdb
-		(let ((dbarea (conc dbpath "/.mtdb")))
-		  (if (not (file-exists? dbarea))
-		      (create-directory dbarea)))
-		dbpath))
-	  #f)))
+
 ;;======================================================================
 ;; T A R G E T S  ,   S T A T E ,   S T A T U S ,   
 ;;                    R U N N A M E    A N D   T E S T P A T T
 ;;======================================================================
 
@@ -270,14 +192,10 @@
 		 (args:get-arg ":runname")
 		 (getenv "MT_RUNNAME"))))
     ;; (if res (set-environment-variable "MT_RUNNAME" res)) ;; not sure if this is a good idea. side effect and all ...
     res))
 
-(define (common:get-fields cfgdat)
-  (let ((fields (hash-table-ref/default cfgdat "fields" '())))
-    (map car fields)))
-
 (define (common:args-get-target #!key (split #f)(exit-if-bad #f))
   (let* ((keys    (if (hash-table? *configdat*) (common:get-fields *configdat*) '()))
 	 (numkeys (length keys))
 	 (target  (or (args:get-arg "-reqtarg")
 		      (args:get-arg "-target")