@@ -232,10 +232,15 @@
 ;;======================================================================
 
 (define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
 (define *common:this-exe-dir*      (pathname-directory *common:this-exe-fullpath*))
 (define *common:this-exe-name*     (pathname-strip-directory *common:this-exe-fullpath*))
+
+(define (common:get-sync-lock-filepath)
+  (let* ((tmp-area     (common:get-db-tmp-area))
+         (lockfile     (conc tmp-area "/megatest.db.sync-lock")))
+    lockfile))
 
 ;;======================================================================
 ;; when called from a wrapper I need sometimes to find the calling
 ;; wrapper, this is for dashboard to find the correct megatest.
 ;;