@@ -308,12 +308,11 @@
 
 	  (handle-exceptions
 	   exn
 	   (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
+	     (debug:print 0 *default-log-port* "ERROR: attempted to drop triggers on MTRA/megatest.db but failed. Error is " msg)
 	     (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")
 		 (sqlite3:execute (car mtdb) "drop trigger if exists update_runs_trigger")))