diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index 37d02fc..7f16d63 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -186,7 +186,8 @@ nil            do not display errors/warnings.
                 (forward-line (1- line))
                 (forward-char (1- coln))
                 (setq beg (point))
-                (skip-chars-forward "^[:space:]" (line-end-position))
+		(forward-sexp)
+                ;; (skip-chars-forward "^[:space:]" (line-end-position))
                 (setq end (point)))))
 	   (t
 	    (setq beg (point))
diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el
index 497ecde..94dc5d7 100644
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@@ -126,8 +126,8 @@
 		      (with-selected-window cwin
 			(goto-char (point-max))
 			(insert-buffer-substring tbuf 1 end)
-			(set-buffer-modified-p nil)
-			(redisplay)))))
+			(set-buffer-modified-p nil))
+		      (redisplay))))
 		(delete-region 1 end)))))
 	(goto-char (point-max))
 	(forward-line -1)