diff --git a/scaffold/boot/50-string-join.scm b/scaffold/boot/50-string-join.scm
index a7398fca..01fe5100 100644
--- a/scaffold/boot/50-string-join.scm
+++ b/scaffold/boot/50-string-join.scm
@@ -45,6 +45,7 @@
   (if (null? (cdr lst)) (car lst)
       (string-append (car lst) infix (string-join (cdr lst) infix))))
 
+(core:display "string-join\n")
 (if (string=? (string-join '("foo" "bar") "/") "foo/bar")
     (exit 0))
 (exit 1)