--- a/classic-bugs/R/bench.R
+++ b/classic-bugs/R/bench.R
@@ -1,4 +1,4 @@
 library(coda)
 x <- read.openbugs()
 benchstats <- summary(x)$statistics
-dump("benchstats")
+dump("benchstats", file=benchfile)