diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs
index d2dbd845a9..62c6e2fd68 100644
--- a/Utility/WebApp.hs
+++ b/Utility/WebApp.hs
@@ -93,7 +93,7 @@ getSocket h = do
 	addr <- inet_addr "127.0.0.1"
 	sock <- socket AF_INET Stream defaultProtocol
 	preparesocket sock
-	bind sock (SockAddrInet aNY_PORT addr)
+	bind sock (SockAddrInet defaultPort addr)
 	use sock
   where
 #else