diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs
index bf3ee2f..016c962 100644
--- a/src/Zenith/CLI.hs
+++ b/src/Zenith/CLI.hs
@@ -1491,12 +1491,9 @@ refreshAddressBook s = do
                  L.listSelectedElement $ L.listMoveToBeginning $ s ^. abAddresses
            return fAdd
          Just a2 -> return $ Just a2
-  case selAddress of
-    Nothing -> return s
-    Just (_i, a) -> do
-      abookList <- getAdrBook pool  (s ^. network) 
-      let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
-      return $ s & abAddresses .~ tL'
+  abookList <- getAdrBook pool  (s ^. network) 
+  let tL' = L.listReplace (Vec.fromList abookList) (Just 0) (s ^. abAddresses)
+  return $ s & abAddresses .~ tL'
 
 addNewAddress :: T.Text -> Scope -> State -> IO State
 addNewAddress n scope s = do