diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,6 +1,7 @@
 Version 1.18
 ------------
   * better lexing of Template Haskell single quotes (thanks to Stephan Wehr)
+  * (1.18.1): fix incomplete pattern match
 
 Version 1.17
 ------------
diff --git a/Language/Preprocessor/Cpphs/Position.hs b/Language/Preprocessor/Cpphs/Position.hs
--- a/Language/Preprocessor/Cpphs/Position.hs
+++ b/Language/Preprocessor/Cpphs/Position.hs
@@ -88,7 +88,8 @@
 cpp2hask line | "#line" `isPrefixOf` line = "{-# LINE "
                                             ++unwords (tail (words line))
                                             ++" #-}"
-                                                                                
+              | otherwise = line
+
 -- | Strip non-directory suffix from file name (analogous to the shell
 --   command of the same name).
 dirname :: String -> String
diff --git a/Language/Preprocessor/Cpphs/Tokenise.hs b/Language/Preprocessor/Cpphs/Tokenise.hs
--- a/Language/Preprocessor/Cpphs/Tokenise.hs
+++ b/Language/Preprocessor/Cpphs/Tokenise.hs
@@ -111,7 +111,8 @@
   haskell Any acc p ls ('\'':xs@('\\':_)) = emit acc $ -- escaped char literal
                                             haskell (String '\'') "'" p ls xs
   haskell Any acc p ls ('\'':x:'\'':xs)   = emit acc $ -- character literal
-                                            haskell Any ['\'', x, '\''] p ls xs
+                                            emit ['\'', x, '\''] $
+                                            haskell Any [] p ls xs
   haskell Any acc p ls ('\'':xs)          = emit acc $ -- TH name quote
                                             haskell Any "'" p ls xs
   haskell Any acc p ls (x:xs) | single x  = emit acc $ emit [x] $
diff --git a/Makefile b/Makefile
--- a/Makefile
+++ b/Makefile
@@ -1,5 +1,5 @@
 LIBRARY = cpphs
-VERSION = 1.18
+VERSION = 1.18.1
 
 DIRS	= Language/Preprocessor/Cpphs \
 	  Text/ParserCombinators
diff --git a/cpphs.cabal b/cpphs.cabal
--- a/cpphs.cabal
+++ b/cpphs.cabal
@@ -1,12 +1,12 @@
 Name: cpphs
-Version: 1.18
+Version: 1.18.1
 Copyright: 2004-2013, Malcolm Wallace
 License: LGPL
 License-File: LICENCE-LGPL
 Cabal-Version: >= 1.6
 Author: Malcolm Wallace <Malcolm.Wallace@me.com>
 Maintainer: Malcolm Wallace <Malcolm.Wallace@me.com>
-Homepage: http://haskell.org/cpphs/
+Homepage: http://projects.haskell.org/cpphs/
 Synopsis: A liberalised re-implementation of cpp, the C pre-processor.
 Description:
     Cpphs is a re-implementation of the C pre-processor that is both
diff --git a/cpphs.hs b/cpphs.hs
--- a/cpphs.hs
+++ b/cpphs.hs
@@ -20,7 +20,7 @@
 import Data.List   ( isPrefixOf )
 
 version :: String
-version = "1.18"
+version = "1.18.1"
 
 main :: IO ()
 main = do
diff --git a/docs/index.html b/docs/index.html
--- a/docs/index.html
+++ b/docs/index.html
@@ -198,11 +198,11 @@
 <b>Current stable version:</b>
 
 <p>
-cpphs-1.18, release date 2014.02.04<br>
+cpphs-1.18.1, release date 2014.02.18<br>
 By HTTP:
 <a href="http://hackage.haskell.org/package/cpphs">Hackage</a>.
 <ul>
-<li> Better lexing of Template Haskell single quotes.  (Thanks to Stephan Wehr)
+<li> fix for incomplete pattern-match
 </ul>
 
 <p>
@@ -225,8 +225,13 @@
 <p>
 <b>Older versions:</b>
 
-
-
+<p>
+cpphs-1.18, release date 2014.02.04<br>
+By HTTP:
+<a href="http://hackage.haskell.org/package/cpphs">Hackage</a>.
+<ul>
+<li> Better lexing of Template Haskell single quotes.  (Thanks to Stephan Wehr)
+</ul>
 
 <p>
 cpphs-1.17.1, release date 2013.08.18<br>