@@ -39,10 +39,11 @@
 (define *globalexitstatus* 0) ;; attempt to work around possible thread issues
 (define *passnum*     0) ;; when running track calls to run-tests or similar
 (define *verbosity*   1)
 (define *rpc:listener* #f) ;; if set up for server communication this will hold the tcp port
 (define *runremote*    #f) ;; if set up for server communication this will hold <host port>
+(define *last-db-access* 0) ;; update when db is accessed via server
 
 (define (get-with-default val default)
   (let ((val (args:get-arg val)))
     (if val val default)))