@@ -119,12 +119,14 @@
 			      (loop (- count 1)))
 			    (begin
 			      (debug:print-info 0 *default-log-port* "dbmod:with-db, database is busy, giving up.")
 			      (exit 1))))
 		   (exn ()
-			(dbfile:print-err exn "ERROR: Unknown error with database for run-id "run-id", message: "
-					  ((condition-property-accessor 'exn 'message) exn))
+			(dbfile:print-err exn "ERROR: Unknown error with db for run-id "
+					  run-id", message: "
+					  ((condition-property-accessor 'exn 'message) exn)
+					  ", details: "(condition->list exn))
 			(exit 2))))))
       (if use-mutex (mutex-unlock! *db-with-db-mutex*))
       res)))
 
 (define (db:with-db dbstruct run-id w/r proc . params)