diff --git a/Web/Routes/Happstack.hs b/Web/Routes/Happstack.hs
--- a/Web/Routes/Happstack.hs
+++ b/Web/Routes/Happstack.hs
@@ -60,8 +60,7 @@
 implSite_ domain approot siteSpec =
     dirs (Text.unpack approot) $
          do rq <- askRq
-            let pathInfo = intercalate "/" (map escapeSlash (rqPaths rq))
-                f        = runSite (domain `Text.append` approot) siteSpec (C.pack pathInfo)
+            let f        = runSite (domain `Text.append` approot) siteSpec (map Text.pack $ rqPaths rq)
             case f of
               (Left parseError) -> return (Left parseError)
               (Right sp)   -> Right <$> (localRq (const $ rq { rqPaths = [] }) sp)
diff --git a/web-routes-happstack.cabal b/web-routes-happstack.cabal
--- a/web-routes-happstack.cabal
+++ b/web-routes-happstack.cabal
@@ -1,5 +1,5 @@
 Name:             web-routes-happstack
-Version:          0.23.0
+Version:          0.23.1
 License:          BSD3
 License-File:     LICENSE
 Author:           jeremy@seereason.com
@@ -11,11 +11,11 @@
 Build-type:       Simple
 
 Library
-        Build-Depends:    base >= 4 && < 5, 
-                          bytestring == 0.9.*,
-                          happstack-server >= 6.0, 
-                          text == 0.11.*,
-                          web-routes >= 0.26.1
+        Build-Depends:    base             >= 4 && < 5, 
+                          bytestring       == 0.9.*,
+                          happstack-server == 6.6.*,
+                          text             == 0.11.*,
+                          web-routes       >= 0.27.1
         Exposed-Modules:  Web.Routes.Happstack
 
 source-repository head