Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -517,11 +517,11 @@
 	       ;; (debug:print 0 *default-log-port* "Got "(length aux-ids)" in aux-ids and "(length main-ids)" in main-ids")
 	       (update-changed (length new-ids) table "new records")
 	       (mutex-lock! *db-transaction-mutex*)
 	       (handle-exceptions
 		   exn
-		   (debug:print 0 *default-log-port* "Transaction update of "table" failed.")
+		   (debug:print 0 *default-log-port* "Transaction update of "table" failed. "(condition->list exn))
 		 (sqlite3:with-transaction
 		  dbh
 		  (lambda ()
 		    (for-each (lambda (id)
 				(sqlite3:execute dbh stmt2 id))
@@ -528,11 +528,11 @@
 			      new-ids))))
 	       
 	       (if (member "last_update" fields)
 		   (handle-exceptions
 		       exn
-		       (debug:print 0 *default-log-port* "Transaction update of "table" failed.")
+		       (debug:print 0 *default-log-port* "Transaction update of "table" failed. "(condition->list exn))
 		     (sqlite3:with-transaction
 		      dbh
 		      (lambda ()
 			(let* ((changed-ids  (sqlite3:fold-row (lambda (res id)(cons id res)) '() dbh changedrec)))
 			  (update-changed (length changed-ids) table "changed records")
@@ -599,11 +599,11 @@
 	     (debug:print 0 *default-log-port* "stmt3="stmt3)
 	     (if (sqlite3:auto-committing? dbh1)
 		 (begin
        	           (handle-exceptions
 		     exn
-		     (debug:print 0 *default-log-port* "Transaction update of "table" failed.")
+		     (debug:print 0 *default-log-port* "Transaction update of "table" failed. "(condition->list exn))
 		     (sqlite3:with-transaction
 		      dbh1
 		      (lambda ()
 		        (sqlite3:execute dbh1 stmt1)    ;; get all new rows