Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -306,11 +306,12 @@
           ;(fmt (file-modification-time tmpdbfname))
 	       (modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
 
 	  (handle-exceptions
 	   exn
-	   (begin
+	   (let ((call-chain (get-call-chain))
+		 (msg        ((condition-property-accessor 'exn 'message) exn)))
 	     (debug:print 0 *default-log-port* "ERROR: attempted to drop triggers on MTRA/megatest.db but failed.")
 	     TODO: print real stack and error info
 	     (set! write-access #f)) ;; if we failed to drop the triggers then we probably don't have write access
 	   (when write-access
 		 (sqlite3:execute (car mtdb) "drop trigger if exists update_tests_trigger")