diff --git a/tk/listlogic.scm b/tk/listlogic.scm
index a1797b4..66c7deb 100644
--- a/tk/listlogic.scm
+++ b/tk/listlogic.scm
@@ -68,4 +68,5 @@
      (begin (if (not $cond) (display $message))
             (newline)))
     ((display-if-not $cond . $messages)
-     (display-if-not $cond (string-concatenate/shared '$messages)))))
+     (display-if-not $cond (string-concatenate/shared `$messages)))))
+