diff --git a/tk/listlogic.scm b/tk/listlogic.scm
index 3e84926..956d719 100644
--- a/tk/listlogic.scm
+++ b/tk/listlogic.scm
@@ -65,7 +65,7 @@
     ((display-if-not $cond)
      (syntax-error "Must provide a string to (display-if-not)"))
     ((display-if-not $cond $message)
-     (begin (if (not $cond) (display $message))
-            (newline)))
+     (begin (if (not $cond) (begin (display $message)
+                                   (newline)))))
     ((display-if-not $cond . $messages)
      (display-if-not $cond (string-concatenate/shared `$messages)))))