Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1305,13 +1305,13 @@
 ;; i.e. these lists define what to NOT show.
 ;; states and statuses are required to be lists, empty is ok
 ;; not-in #t = above behaviour, #f = must match
 (define (db:get-tests-for-run dbstruct run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals)
   (if (not (number? run-id))
-      (begin
-	(debug:print 0 "ERROR: call to db:get-tests-for-run with bad run-id=" run-id)
-	(print-call-chain)
+      (begin ;; no need to treat this as an error by default
+	(debug:print 4 "WARNING: call to db:get-tests-for-run with bad run-id=" run-id)
+	;; (print-call-chain)
 	'())
       (let* ((qryvalstr       (case qryvals
 				((shortlist) "id,run_id,testname,item_path,state,status")
 				((#f)        db:test-record-qry-selector) ;; "id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment")
 				(else        qryvals)))