Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1764,11 +1764,11 @@
 ;; input data is a list (state status count)
 ;;
 (define (db:update-run-stats dbstruct run-id stats-in)
   (let* ((stats (if (list? stats-in)
 		    stats-in
-		    (db:get-raw-run-stats run-id))))
+		    (db:get-raw-run-stats dbstruct run-id))))
     (mutex-lock! *db-transaction-mutex*)
     (db:with-db
      dbstruct
      #f
      #t