@@ -682,11 +682,11 @@
 		(debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*" pid="(current-process-id)" this-wd-num="this-wd-num)))))))
 
 ;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage
 (define (common:watchdog)
   (let ((dbstruct (db:setup)))
-    (if (dbstruct-readonly dbstruct)
+    (if (dbr:dbstruct-read-only dbstruct)
         (common:readonly-watchdog dbstruct)
         (common:writable-watchdog dbstruct))))
 
 
 (define (std-exit-procedure)