1.1--- a/examples/db/mbdb.lisp	Sun Jun 16 22:15:04 2024 -0400
     1.2+++ b/examples/db/mbdb.lisp	Thu Jun 20 22:31:58 2024 -0400
     1.3@@ -61,7 +61,9 @@
     1.4 database and on exit the database must be closed.")
     1.5 
     1.6 (declaim (oracle *mbdb-oracle*))
     1.7-(defvar *mbdb-oracle* (make-oracle sb-thread:*current-thread*)
     1.8+(defvar *mbdb-oracle* (multiple-value-bind (id thread) (make-oracle sb-thread:*current-thread*)
     1.9+                        (declare (ignore id))
    1.10+                        thread)
    1.11   "The oracle assigned to the mbdb system, which should usually be the current thread.")
    1.12 
    1.13 (declaim (task-pool *mbdb-tasks*))