diff --git a/Network/JMacroRPC/Happstack.hs b/Network/JMacroRPC/Happstack.hs
--- a/Network/JMacroRPC/Happstack.hs
+++ b/Network/JMacroRPC/Happstack.hs
@@ -20,6 +20,7 @@
 > import Control.Concurrent
 > import Network.JMacroRPC.Base
 > import Text.XHtml hiding(dir)
+> import Control.Monad.Trans(lift)
 >
 > jsScript f = script (primHtml f) ! [thetype "text/javascript"]
 > jsScript' = jsScript . show . renderJs
@@ -41,7 +42,7 @@
 >                                   |]);
 >           jRpcs = [getCounterRPC]
 >           getCounterRPC =
->               toJsonConvRPC "getCounter" $ \s -> retRight =<< modifyMVar s (\i -> return (i+1,i))
+>               toJsonConvRPC "getCounter" $ \s -> (lift $ retRight =<< modifyMVar s (\i -> return (i+1,i)) :: ServerPartT IO (Either String Int))
 >
 > retRight :: a -> IO (Either String a)
 > retRight = return . Right
diff --git a/jmacro-rpc-happstack.cabal b/jmacro-rpc-happstack.cabal
--- a/jmacro-rpc-happstack.cabal
+++ b/jmacro-rpc-happstack.cabal
@@ -1,5 +1,5 @@
 Name:                jmacro-rpc-happstack
-Version:             0.2
+Version:             0.2.1
 Homepage:            http://patch-tag.com/r/gershomb/jmacro-rpc
 License:             BSD3
 License-file:        LICENSE