@@ -25,10 +25,11 @@
 (define-inline (dbr:dbstruct-get-rtime   vec)    (vector-ref  vec 7))
 (define-inline (dbr:dbstruct-get-stime   vec)    (vector-ref  vec 8))
 (define-inline (dbr:dbstruct-get-inuse   vec)    (vector-ref  vec 9))
 (define-inline (dbr:dbstruct-get-refdb   vec)    (vector-ref  vec 10))
 (define-inline (dbr:dbstruct-get-locdbs  vec)    (vector-ref  vec 11))
+(define-inline (dbr:dbstruct-get-olddb   vec)    (vector-ref  vec 12))
 
 (define-inline (dbr:dbstruct-set-main!   vec val)(vector-set! vec 0 val))
 (define-inline (dbr:dbstruct-set-strdb!  vec val)(vector-set! vec 1 val))
 (define-inline (dbr:dbstruct-set-path!   vec val)(vector-set! vec 2 val))
 (define-inline (dbr:dbstruct-set-local!  vec val)(vector-set! vec 3 val))
@@ -38,15 +39,16 @@
 (define-inline (dbr:dbstruct-set-rtime!  vec val)(vector-set! vec 7 val))
 (define-inline (dbr:dbstruct-set-stime!  vec val)(vector-set! vec 8 val))
 (define-inline (dbr:dbstruct-set-inuse!  vec val)(vector-set! vec 9 val))
 (define-inline (dbr:dbstruct-set-refdb!  vec val)(vector-set! vec 10 val))
 (define-inline (dbr:dbstruct-set-locdbs! vec val)(vector-set! vec 11 val))
+(define-inline (dbr:dbstruct-set-olddb!  vec val)(vector-set! vec 12 val))
 
 ;; constructor for dbstruct
 ;;
 (define (make-dbr:dbstruct #!key (path #f)(local #f))
-  (let ((v (make-vector 12 #f)))
+  (let ((v (make-vector 13 #f)))
     (dbr:dbstruct-set-path! v path)
     (dbr:dbstruct-set-local! v local)
     (dbr:dbstruct-set-locdbs! v (make-hash-table))
     v))