Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -910,11 +910,11 @@
 					; (set! page (+ 1 page))
 	      (if (> total-runs (* (+ 1 page) pg-size))
 		  (loop (+ 1  page)))))
 	  (common:simple-file-release-lock lockfile))
 	(begin
-	  (debug-print 0 *default-log-port* "Failed to get lock on file outf, lockfile: " lockfile) #f))))
+	  (debug:print 0 *default-log-port* "Failed to get lock on file outf, lockfile: " lockfile) #f))))
 
 
 (define (tests:readlines filename)
   (call-with-input-file filename
     (lambda (p)