diff --git a/test-suite/guile-test b/test-suite/guile-test
index 1d16368d8..9cdbb374b 100755
--- a/test-suite/guile-test
+++ b/test-suite/guile-test
@@ -216,6 +216,7 @@
 
 	  ;; Run the tests.
 	  (for-each (lambda (test)
+                      (display (string-append "Running " test "\n"))
 		      (with-test-prefix test
 			(load (test-file-name test))))
 		    tests)