diff --git a/haskell-commands.el b/haskell-commands.el
index 43208fd8c..a597840f3 100644
--- a/haskell-commands.el
+++ b/haskell-commands.el
@@ -967,7 +967,7 @@ modified message MSG to echo area."
   (if haskell-process-use-presentation-mode
       (let ((session (haskell-process-session (haskell-interactive-process))))
         (haskell-present session msg))
-    (let (m (haskell-utils-reduce-string msg))
+    (let ((m (haskell-utils-reduce-string msg)))
       (message m))))
 
 (defun haskell-utils-async-update-post-command-flag ()