diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+2015-12-13 v0.5.0.1
+	* Fix a bug (#34) where quasiquote values would not roundtrip.
+
 2015-11-21 v0.5
 	* Add new options to enable "rigid" layout rules. This makes the
 	annotations more rigid in the sense that if you move AST fragments around
diff --git a/ghc-exactprint.cabal b/ghc-exactprint.cabal
--- a/ghc-exactprint.cabal
+++ b/ghc-exactprint.cabal
@@ -1,5 +1,5 @@
 name:                ghc-exactprint
-version:             0.5.0.0
+version:             0.5.0.1
 synopsis:            ExactPrint for GHC
 description:         Using the API Annotations available from GHC 7.10.2, this
                      library provides a means to round trip any code that can
diff --git a/src/Language/Haskell/GHC/ExactPrint/Utils.hs b/src/Language/Haskell/GHC/ExactPrint/Utils.hs
--- a/src/Language/Haskell/GHC/ExactPrint/Utils.hs
+++ b/src/Language/Haskell/GHC/ExactPrint/Utils.hs
@@ -206,7 +206,8 @@
 -- ---------------------------------------------------------------------
 -- | Checks whether a SrcSpan has zero length.
 isPointSrcSpan :: GHC.SrcSpan -> Bool
-isPointSrcSpan = (== 0 ) . spanLength
+isPointSrcSpan ss = spanLength ss == 0
+                  && srcSpanStartLine ss == srcSpanEndLine ss
 
 -- ---------------------------------------------------------------------
 
diff --git a/tests/Test.hs b/tests/Test.hs
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -96,6 +96,7 @@
   -- Tests requiring future GHC modifications
   , mkTestModBad "UnicodeSyntax.hs"
   , mkTestModBad "InfixOperator.hs"
+
   ]
 
 
@@ -142,11 +143,12 @@
   -- , mkTestModChange changeLetIn1      "LetIn1.hs"
   -- , mkTestModChange changeWhereIn4    "WhereIn4.hs"
   -- , mkTestModChange changeAddDecl     "AddDecl.hs"
-    mkTestModChange changeLocalDecls  "LocalDecls.hs"
+    -- mkTestModChange changeLocalDecls  "LocalDecls.hs"
   -- , mkTestModChange changeLocalDecls2 "LocalDecls2.hs"
   -- , mkTestModChange changeWhereIn3a   "WhereIn3a.hs"
-    , mkTestModChange changeRenameCase1 "RenameCase1.hs"
-    , mkTestModChange changeRenameCase2 "RenameCase2.hs"
+    -- , mkTestModChange changeRenameCase1 "RenameCase1.hs"
+    -- , mkTestModChange changeRenameCase2 "RenameCase2.hs"
+      mkTestModBad "QuasiQuote2.hs"
     ]
 
 testsTT :: Test
diff --git a/tests/Test/Common.hs b/tests/Test/Common.hs
--- a/tests/Test/Common.hs
+++ b/tests/Test/Common.hs
@@ -27,16 +27,13 @@
 import Language.Haskell.GHC.ExactPrint.Parsers (parseModuleApiAnnsWithCpp)
 import Language.Haskell.GHC.ExactPrint.Preprocess
 
-import GHC.Paths (libdir)
 
 import qualified ApiAnnotation as GHC
 import qualified DynFlags      as GHC
 import qualified FastString    as GHC
 import qualified GHC           as GHC hiding (parseModule)
-import qualified HeaderInfo    as GHC
 import qualified Lexer         as GHC
 import qualified MonadUtils    as GHC
-import qualified Outputable    as GHC
 import qualified Parser        as GHC
 import qualified SrcLoc        as GHC
 import qualified StringBuffer  as GHC
@@ -45,7 +42,6 @@
 
 import Data.List hiding (find)
 
-import Control.Monad
 import System.Directory
 
 import Test.Consistency
diff --git a/tests/examples/ghc710/NegLit.hs b/tests/examples/ghc710/NegLit.hs
deleted file mode 100644
--- a/tests/examples/ghc710/NegLit.hs
+++ /dev/null
@@ -1,1 +0,0 @@
-a = -b/c
diff --git a/tests/examples/ghc710/QuasiQuote2.hs b/tests/examples/ghc710/QuasiQuote2.hs
new file mode 100644
--- /dev/null
+++ b/tests/examples/ghc710/QuasiQuote2.hs
@@ -0,0 +1,20 @@
+{-# LANGUAGE QuasiQuotes #-}
+module Test where
+
+a = bar
+    where
+        bar = [q|
+            |]
+
+b = bar
+    where
+        bar = [q|
+           |]
+
+c = bar
+    where
+        bar = [q|
+             |]
+
+d = [q|
+            |]