diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,13 @@
+2010.1.26
+---------
+
+* add back here function
+
+2010.1.24.1
+-----------
+
+* compatible with GHC 6.12
+
 2009.11.7
 ---------
 
diff --git a/mps.cabal b/mps.cabal
--- a/mps.cabal
+++ b/mps.cabal
@@ -1,5 +1,5 @@
 Name:                 mps
-Version:              2010.1.24.1
+Version:              2010.1.26
 Build-type:           Simple
 Synopsis:             simply oo
 Description:          DSL that allows one to write Haskell from left to right
@@ -24,4 +24,5 @@
                   , MPS.Extra
                   , MPS.Env
                   , MPS.Heavy
+                  , MPS.TH
   other-modules:    MPS.UTF8
diff --git a/src/MPS/TH.hs b/src/MPS/TH.hs
new file mode 100644
--- /dev/null
+++ b/src/MPS/TH.hs
@@ -0,0 +1,8 @@
+module MPS.TH where
+
+import Language.Haskell.TH.Quote 
+import Language.Haskell.TH.Syntax 
+import Language.Haskell.TH.Lib 
+
+here :: QuasiQuoter 
+here = QuasiQuoter (litE . stringL) (litP . stringL)