<verbatim>
chlr15003 to clean up
EXCEPTION: database probably overloaded or unreadable.
 message: unbound variable
exn=((exn (location #f) (call-chain (#(db.scm:502: current-process-id #f #f) #(db.scm:502: get-host-name #f #f) #(db.scm:502: debug:print-info #f #f) #(common_records.scm:68: debug:debug-mode #f #f) #(common_records.scm:69: with-output-to-port #f #f) #(common_records.scm:71: format#format #f #f) #(db.scm:487: call-with-current-continuation #f #f) #(db.scm:487: with-exception-handler #f #f) #(db.scm:487: ##sys#call-with-values #f #f) #(db.scm:472: debug:print-info #f #f) #(common_records.scm:68: debug:debug-mode #f #f))) (arguments (*db:all-write-procs*)) (message unbound variable)) (runtime))
 status:  #f

        Call history:

        db.scm:496: debug:print
        common_records.scm:58: debug:debug-mode
        common_records.scm:59: with-output-to-port
        db.scm:497: condition-property-accessor
        db.scm:497: g1000
        db.scm:497: debug:print
        common_records.scm:58: debug:debug-mode
        common_records.scm:59: with-output-to-port
        db.scm:498: condition->list
        db.scm:498: print
        db.scm:499: condition-property-accessor
        db.scm:499: g1002
        db.scm:499: debug:print
        common_records.scm:58: debug:debug-mode
        common_records.scm:59: with-output-to-port
        db.scm:500: print-call-chain            <--
</verbatim>