diff --git a/functional-tests/show-tests.scm b/functional-tests/show-tests.scm
new file mode 100644
index 0000000..334a17e
--- /dev/null
+++ b/functional-tests/show-tests.scm
@@ -0,0 +1,7 @@
+(import (functional-tests)
+        (thin-functional-tests)
+        (fmt fmt))
+
+(register-thin-tests)
+(describe-scenarios (list-scenarios))
+
diff --git a/functional-tests/thin-functional-tests.scm b/functional-tests/thin-functional-tests.scm
index b9a8a0b..7c5b9bc 100644
--- a/functional-tests/thin-functional-tests.scm
+++ b/functional-tests/thin-functional-tests.scm
@@ -75,8 +75,7 @@
 
   ;; We have to export something that forces all the initialisation expressions
   ;; to run.
-  (define (register-thin-tests)
-    (fmt #t "registered tests"))
+  (define (register-thin-tests) #t)
 
   ;;;-----------------------------------------------------------
   ;;; thin_check scenarios