diff -r 81b7333f27f8 -r 5c58d05abae6 examples/db/mbdb.lisp
--- a/examples/db/mbdb.lisp	Sun Jun 16 22:15:04 2024 -0400
+++ b/examples/db/mbdb.lisp	Thu Jun 20 22:31:58 2024 -0400
@@ -61,7 +61,9 @@
 database and on exit the database must be closed.")
 
 (declaim (oracle *mbdb-oracle*))
-(defvar *mbdb-oracle* (make-oracle sb-thread:*current-thread*)
+(defvar *mbdb-oracle* (multiple-value-bind (id thread) (make-oracle sb-thread:*current-thread*)
+                        (declare (ignore id))
+                        thread)
   "The oracle assigned to the mbdb system, which should usually be the current thread.")
 
 (declaim (task-pool *mbdb-tasks*))