Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1281,18 +1281,26 @@
 	(let* ((run-dat  (or (runs:gendat-run-info *runs:general-data*)(rmt:get-run-info run-id)))
 	       (runname  (or (runs:gendat-runname *runs:general-data*)
 			     (db:get-value-by-header (db:get-rows run-dat)
 						     (db:get-header run-dat) "runname")))
 	       (target   (or (runs:gendat-target *runs:general-data*)(rmt:get-target run-id)))
-	       (testsdat (rmt:get-tests-for-run run-id "%" '() '() ;; run-id testpatt states statuses
-						#f #f ;; offset limit
-						#f ;; not-in
-						#f ;; sort-by
-						#f ;; sort-order
-						#f ;; get full data (not 'shortlist)
-						(runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time
-						'dashboard)))
+	       (testsdat (let ((res (rmt:get-tests-for-run
+				     run-id "%" '() '() ;; run-id testpatt states statuses
+				     #f #f ;; offset limit
+				     #f ;; not-in
+				     #f ;; sort-by
+				     #f ;; sort-order
+				     #f ;; get full data (not 'shortlist)
+				     (runs:gendat-inc-results-last-update *runs:general-data*) ;; last update time
+				     'dashboard)))
+			   (if (list? res)
+			       res
+			       (begin
+				 (debug:print-error
+				  0 *default-log-port*
+				  "FAILED TO GET DATA using rmt:get-tests-for-run. Notify developers if you see this.")
+				 '())))))
 	  (if (not (runs:gendat-run-info *runs:general-data*))
 	      (runs:gendat-run-info-set! *runs:general-data* run-dat))
 	  (if (not (runs:gendat-runname  *runs:general-data*))
 	      (runs:gendat-runname-set! *runs:general-data* runname))
 	  (if (not (runs:gendat-target *runs:general-data*))