diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,10 @@
 The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)
 and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).
 
+## 0.18.1
+### Fixed
+- Set default port for peers where it is unset.
+
 ## 0.18.0
 ### Added
 - Support setting up and connecting to IPv6 peers.
diff --git a/haskoin-node.cabal b/haskoin-node.cabal
--- a/haskoin-node.cabal
+++ b/haskoin-node.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 0599a43964ddf1a639dbe9c035528e09c5e2dd566032823d915459e8a314c6af
+-- hash: 4c5b822964af86d44a654186fa512ad3c745e53e6fe24a4cd7b59a39d153b41e
 
 name:           haskoin-node
-version:        0.18.0
+version:        0.18.1
 synopsis:       P2P library for Bitcoin and Bitcoin Cash
 description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-node#readme>
 category:       Bitcoin, Finance, Network
diff --git a/src/Haskoin/Node/Manager.hs b/src/Haskoin/Node/Manager.hs
--- a/src/Haskoin/Node/Manager.hs
+++ b/src/Haskoin/Node/Manager.hs
@@ -75,6 +75,7 @@
                                             newTVarIO, readTVar, readTVarIO,
                                             withAsync, withRunInIO, writeTVar)
 import           UnliftIO.Concurrent       (threadDelay)
+import Control.Applicative ((<|>))
 
 type MonadManager m = (MonadIO m, MonadReader PeerManager m)
 
@@ -723,7 +724,9 @@
     go `catch` e
   where
     go = fmap (map addrAddress) $ liftIO $ getAddrInfo Nothing host srv
-    (host, srv) = toHostService str
+    (host, srv) = 
+        second (<|> Just (show (getDefaultPort net))) $
+        toHostService str
     e :: Monad m => SomeException -> m [SockAddr]
     e _ = return []
 
diff --git a/test/Haskoin/NodeSpec.hs b/test/Haskoin/NodeSpec.hs
--- a/test/Haskoin/NodeSpec.hs
+++ b/test/Haskoin/NodeSpec.hs
@@ -44,7 +44,6 @@
 import           UnliftIO               (MonadIO, MonadUnliftIO, liftIO,
                                          throwString, withAsync,
                                          withSystemTempDirectory)
-import Haskoin.Node (toHostService)
 
 data TestNode = TestNode
     { testMgr    :: PeerManager