diff --git a/MFlow.cabal b/MFlow.cabal
--- a/MFlow.cabal
+++ b/MFlow.cabal
@@ -1,5 +1,5 @@
 name: MFlow
-version: 0.4.5.13
+version: 0.4.6.0
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
@@ -188,7 +188,7 @@
     buildable: True
     hs-source-dirs: src .
     other-modules:  MFlow.Wai.Response
-
+    build-tools: cpphs
 
 --executable demos-blaze
 --    build-depends: MFlow , RefSerialize , TCache ,
diff --git a/src/MFlow/Forms/Internals.hs b/src/MFlow/Forms/Internals.hs
--- a/src/MFlow/Forms/Internals.hs
+++ b/src/MFlow/Forms/Internals.hs
@@ -1105,16 +1105,11 @@
   evalStateT (runSup . runFlowM $   f )  mFlowState0{mfToken=t} >>= return . fromFailBack   -- >> return ()
 
 
--- | Run a transient Flow from the IO monad.
---runNav :: String -> FlowM Html IO () -> IO ()
---runNav ident f= exec1 ident $ runFlowOnce (transientNav f) undefined
-
-
 -- | Clears the environment
 clearEnv :: MonadState (MFlowState view) m =>  m ()
 clearEnv= modify $ \s -> s{ mfEnv= []}
 
--- | clear the request paramenters and the rest path.
+-- | clear the request paramters and the rest path.
 clearEnv' :: MonadState (MFlowState view) m =>  m ()
 clearEnv'= modify $ \s -> s{ mfEnv= [], mfPath=[], mfPagePath=[""]}
 
diff --git a/src/MFlow/Wai.hs b/src/MFlow/Wai.hs
--- a/src/MFlow/Wai.hs
+++ b/src/MFlow/Wai.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE   UndecidableInstances
-             , CPP
              , TypeSynonymInstances
              , MultiParamTypeClasses
              , DeriveDataTypeable