diff --git a/haskell-font-lock.el b/haskell-font-lock.el
index 553e5a37b..92efdc98e 100644
--- a/haskell-font-lock.el
+++ b/haskell-font-lock.el
@@ -82,8 +82,11 @@ be disabled at that position.")
 This is the case if the \".\" is part of a \"forall <tvar> . <type>\"."
   (save-excursion
     (goto-char start)
-    (re-search-backward "\\<forall\\>[^.\"]*\\="
-                        (line-beginning-position) t)))
+    (or (re-search-backward "\\<forall\\>[^.\"]*\\="
+                            (line-beginning-position) t)
+        (not (or
+              (string= " " (string (char-after start)))
+              (string= " " (string (char-before start))))))))
 
 (defface haskell-keyword-face
   '((t :inherit 'font-lock-keyword-face))