diff --git a/happstack-server.cabal b/happstack-server.cabal
--- a/happstack-server.cabal
+++ b/happstack-server.cabal
@@ -1,5 +1,5 @@
 Name:                happstack-server
-Version:             7.1.2
+Version:             7.1.3
 Synopsis:            Web related tools and services.
 Description:         Happstack Server provides an HTTP server and a rich set of functions for routing requests, handling query parameters, generating responses, working with cookies, serving files, and more. For in-depth documentation see the Happstack Crash Course <http://happstack.com/docs/crashcourse/index.html>
 License:             BSD3
diff --git a/src/Happstack/Server/Internal/Socket.hs b/src/Happstack/Server/Internal/Socket.hs
--- a/src/Happstack/Server/Internal/Socket.hs
+++ b/src/Happstack/Server/Internal/Socket.hs
@@ -56,9 +56,16 @@
 acceptLite :: S.Socket -> IO (S.Socket, S.HostName, S.PortNumber)
 acceptLite sock = do
   (sock', addr) <- S.accept sock
-  (N.PortNumber p) <- N.socketPort sock'
+  let port = getPort addr
   let peer = sockAddrToHostName addr
-  return (sock', peer, p)
+  return (sock', peer, port)
+
+getPort :: S.SockAddr -> S.PortNumber
+getPort addr =
+    case addr of
+        (S.SockAddrInet p _) -> p
+        (S.SockAddrInet6 p _ _ _ ) -> p
+        _ -> error "Unsupported socket"
 
 sockAddrToHostName ::  S.SockAddr -> S.HostName
 sockAddrToHostName addr =