anchor.diff:    (open-ntlm-database)
     ;; walk the list until we find an unused entry 
     (let (count)
  -    (pounds:with-locked-mapping (*ntlm-stream*)
  +    (with-locked-db 
         (setf count (database-count))
         (do ((i 1 (1+ i)))
             ((>= i count))
  -        (let ((offset (file-position *ntlm-stream*))
  -              (entry (read-ntlm-entry *ntlm-stream*)))
  +        (let ((offset (file-position (db-stream *db*)))
  +              (entry (read-ntlm-entry (db-stream *db*))))
             (cond 
               ((and (ntlm-entry-active entry) 
                     (string= (ntlm-entry-user entry) username))
  -             (file-position *ntlm-stream* offset)
  -             (write-ntlm-entry *ntlm-stream* 
  +             (file-position (db-stream *db*) offset)
  +             (write-ntlm-entry (db-stream *db*)
                                  (make-ntlm-entry :active t 
                                                   :user username 
                                                   :password password))
                (return-from add-ntlm-user nil))
               ((not (ntlm-entry-active entry))
                ;; free entry, write here
  -             (file-position *ntlm-stream* offset)
  -             (write-ntlm-entry *ntlm-stream* 
  +             (file-position (db-stream *db*) offset)
  +             (write-ntlm-entry (db-stream *db*)
                                  (make-ntlm-entry :active t 
                                                   :user username 
                                                   :password password))
  
positive.code:   "List all entries in the user database."
    (open-ntlm-database)
    (let (count users)
      (pounds:with-locked-mapping (*ntlm-stream*)
        (setf count (database-count))
        (do ((i 1 (1+ i)))
            ((= i count))
          (let ((entry (read-ntlm-entry *ntlm-stream*)))
            (when (ntlm-entry-active entry)
              (push (list :name (ntlm-entry-user entry)
                          :password (ntlm-entry-password entry))
  
negative.code:     ;; no free entries remap 
      (close-ntlm-database)
      (open-ntlm-database (* count 2))
      (with-locked-db 
        (file-position (db-stream *db*) (* +ntlm-block-size+ count))
        (write-ntlm-entry (db-stream *db*)
                          (make-ntlm-entry :active t 
                                           :user username
                                           :password password)))
  