(defun do-benchmarks-for-backend (db-type spec count)
(test-connect-to-database db-type spec)
- (write-report-banner "Benchmarks" db-type *report-stream*)
+ (write-report-banner "Benchmarks" db-type *report-stream*
+ (database-name-from-spec spec db-type))
(create-view-from-class 'bench)
(benchmark-init)