diff --git a/leksah-server.cabal b/leksah-server.cabal
--- a/leksah-server.cabal
+++ b/leksah-server.cabal
@@ -1,5 +1,5 @@
 name: leksah-server
-version: 0.15.0.2
+version: 0.15.0.3
 cabal-version: >= 1.10.2
 build-type: Simple
 license: GPL
@@ -195,7 +195,7 @@
     hs-source-dirs: tests
     main-is:    TestTool.hs
     build-depends: base >= 4.0.0.0 && <4.9,  hslogger >= 1.0.7 && <1.3,
-               leksah-server == 0.15.0.2,
+               leksah-server == 0.15.0.3,
                HUnit >=1.2 && <1.3, transformers >=0.2.2.0 && <0.5, conduit >= 1.0.8 && <1.3,
                conduit-extra >=1.0.0.1 && <1.2, resourcet
 
diff --git a/src/IDE/Metainfo/Collector.hs b/src/IDE/Metainfo/Collector.hs
--- a/src/IDE/Metainfo/Collector.hs
+++ b/src/IDE/Metainfo/Collector.hs
@@ -196,14 +196,14 @@
                             else
                                 case servers of
                                     (Nothing:_)  -> do
-                                        running <- serveOne Nothing (server (PortNum (fromIntegral
-                                            (serverPort prefs))) newPrefs connRef threadId localServerAddr)
+                                        running <- serveOne Nothing (server (fromIntegral
+                                            (serverPort prefs)) newPrefs connRef threadId localServerAddr)
                                         waitFor running
                                         return ()
                                     (Just ps:_)  -> do
                                         let port = read $ T.unpack ps
-                                        running <- serveOne Nothing (server (PortNum
-                                            (fromIntegral port)) newPrefs connRef threadId localServerAddr)
+                                        running <- serveOne Nothing (server
+                                            (fromIntegral port) newPrefs connRef threadId localServerAddr)
                                         waitFor running
                                         return ()
                                     _ -> return ()