@@ -933,21 +933,10 @@
 		  (debug:print-error 0 *default-log-port* "Unable to find megatest home directory.")
 		  #f)
 		(loop (pathname-directory thepath)))))
       ))
 
-
-(define (common:db-tmp-area-path)
-  (conc "/tmp/" 
-         (current-user-name)
-	 "/megatest_localdb/"
-	 (common:get-testsuite-name)
-         "/"
-	 (string-translate *toppath* "/" ".")
-  )
-)
-
 
 ;;======================================================================
 ;; redefine for future cleanup (converge on area-name, the more generic
 ;;
 (define common:get-area-name common:get-testsuite-name)
@@ -967,11 +956,11 @@
 			      (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
-					  "/megatest_localdb/"
+					  "/"(current-user-name) "/megatest_localdb/"
 					  tsname
 					  (string-translate toppath "/" "."))
 				    ))))
 		(set! *db-cache-path* dbpath)
 		;; ensure megatest area has .mtdb