diff --git a/QuasiText.cabal b/QuasiText.cabal
--- a/QuasiText.cabal
+++ b/QuasiText.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                QuasiText
-version:             0.1.2.5
+version:             0.1.2.6
 synopsis:            A QuasiQuoter for Text.
 description:         A QuasiQuoter for interpolating values into Text strings.
 homepage:            https://github.com/mikeplus64/QuasiText
@@ -16,5 +16,5 @@
 
 library
   exposed-modules:     Text.QuasiText
-  build-depends:       base >= 4.5.0.0 && < 5.0.0.0, template-haskell, haskell-src-meta, attoparsec, text
+  build-depends:       base >= 4.5.0.0 && < 5.0.0.0, template-haskell, haskell-src-meta, attoparsec, text, th-lift-instances
   hs-source-dirs:      src
diff --git a/src/Text/QuasiText.hs b/src/Text/QuasiText.hs
--- a/src/Text/QuasiText.hs
+++ b/src/Text/QuasiText.hs
@@ -3,6 +3,7 @@
 -- A simple 'QuasiQuoter' for 'Text' strings. Note that to use 'embed' you need to use the OverloadedStrings extension.
 
 module Text.QuasiText (embed, Chunk (..), getChunks) where
+import Instances.TH.Lift () -- for the `instance Lift Text`
 import Language.Haskell.TH.Quote
 import Language.Haskell.TH.Syntax
 import Language.Haskell.TH
@@ -15,9 +16,6 @@
 
 import Data.Monoid
 import Control.Applicative
-                        
-instance Lift Text where
-    lift = litE . stringL . T.unpack
 
 data Chunk 
     = T Text -- ^ text
@@ -57,7 +55,7 @@
                             Left  e -> error e
                             Right e -> appE [| toText |] (return e)
 
-                        V t -> appE [| toText |] (global (mkName (T.unpack t)))
+                        V t -> appE [| toText |] (varE (mkName (T.unpack t)))
 
         in appE [| T.concat |] (listE chunks)
     }