diff --git a/MFlow.cabal b/MFlow.cabal
--- a/MFlow.cabal
+++ b/MFlow.cabal
@@ -1,5 +1,5 @@
 name: MFlow
-version: 0.4.0
+version: 0.4.1
 cabal-version: >=1.8
 build-type: Simple
 license: BSD3
diff --git a/src/MFlow/Wai/Blaze/Html/All.hs b/src/MFlow/Wai/Blaze/Html/All.hs
--- a/src/MFlow/Wai/Blaze/Html/All.hs
+++ b/src/MFlow/Wai/Blaze/Html/All.hs
@@ -37,7 +37,7 @@
 import Text.Blaze.Html5 hiding (map)
 import Text.Blaze.Html5.Attributes  hiding (label,span,style,cite,title,summary,step,form)
 import Network.Wai
-import Network.Wai.Handler.Warp
+import Network.Wai.Handler.Warp(run,defaultSettings,Settings,settingsPort)
 import Data.TCache
 import Text.Blaze.Internal(text)
 
@@ -75,7 +75,7 @@
 runNavigation n f= do
     unless (null n) $ setNoScript n
     addMessageFlows[(n, runFlow f)]
-    porti <- MFlow.Wai.Blaze.Html.All.getPort
+    porti <- getPort
     wait $ run porti waiMessageFlow
     --runSettings defaultSettings{settingsTimeout = 20, settingsPort= porti} waiMessageFlow