@@ -2054,11 +2054,11 @@
                                     (iup:attribute-set! run-matrix key (cadr value))
                                     (iup:attribute-set! run-matrix (conc "BGCOLOR" key) (car value))))))
                           matrix-content)
                 
                 ;; Col labels - do after setting Cell contents so they are accounted for in the size calc.
-                
+
                 (for-each (lambda (ind)
                             (let* ((name (car ind))
                                    (num  (cadr ind))
                                    (key  (conc "0:" num)))
                               (if (not (equal? (iup:attribute run-matrix key) name))
@@ -2127,11 +2127,11 @@
 	     (file-read-access? source))
 	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
-	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
+	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
 	   (debug:print 0 *default-log-port* "ERROR: failed to load " source ", try loading in the repl: megatest -repl")
 	   (set! success #f))
 	 (load source))
 	(begin
 	  (debug:print 0 *default-log-port* "ERROR: cannot find file to load: \"" source "\" for user view " view-name)))
@@ -2139,11 +2139,11 @@
     (if success
 	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
-	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
+	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
 	   (debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen
 			", with; tab-num=" tab-num ", view-name=" view-name
 			", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl")
 	   (set! success #f))
 	 (print "Adding tab " view-name " with proc " viewgen)
@@ -2156,11 +2156,11 @@
 				      (lambda ()
 					(handle-exceptions
 					 exn
 					 (begin
 					   (print-call-chain)
-					   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
+					   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
 					   (debug:print 0 *default-log-port* "ERROR: failed call procedure \"" updater
 							"\", with; tabnum=" tab-num ", view-name=" view-name
 							", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl")
 					   (set! success #f))
 					 (debug:print 4 *default-log-port* "Running updater for tab " view-name " with proc " updater " and tab-num: " tab-num)
@@ -3044,11 +3044,12 @@
 
 (define (dashboard:get-youngest-run-db-mod-time dbdir)
   (handle-exceptions
    exn
    (begin
-     (debug:print 2 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: " ((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir)
+     (debug:print 2 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: "
+		  ((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir ", exn=" exn)
      (current-seconds)) ;; something went wrong - just print an error and return current-seconds
    (common:max (map (lambda (filen)
 		      (file-modification-time filen))
 		    (glob (conc dbdir "/*.db*"))))))