diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el
index fe636abff..61a89b56b 100644
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@@ -80,15 +80,13 @@ nil            do not display errors/warnings.
     (if ghc-check-command
 	(let ((opts (ghc-haskell-list-of-string ghc-hlint-options)))
 	  (if opts
-	      (format "lint %s %s\n" opts file)
+	      (format "ascii-escape lint %s %s\n\n" opts file)
 	    (format "lint %s\n" file)))
       (format "check %s\n" file))))
 
 (defun ghc-haskell-list-of-string (los)
   (when los
-    (concat "["
-	    (mapconcat (lambda (x) (concat "\"" x "\"")) los ", ")
-	    "]")))
+    (mapconcat (lambda (x) (concat "-h\x02" x "\x03")) los " ")))
 
 (defun ghc-check-callback (status)
   (cond