diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs
index f18493a..4522913 100644
--- a/src/Zenith/CLI.hs
+++ b/src/Zenith/CLI.hs
@@ -107,6 +107,7 @@ import Zenith.Utils
   ( displayTaz
   , displayZec
   , isRecipientValid
+  , isRecipientValidGUI
   , jsonNumber
   , parseAddressUA
   , showAddress
@@ -1132,7 +1133,7 @@ appEvent (BT.VtyEvent e) = do
                            fs <- BT.gets formState
                            BT.modify $
                              setFieldValid
-                               (isRecipientValid (fs ^. sendTo))
+                               (isRecipientValidGUI (fs ^. policyField) (fs ^. sendTo))
                                RecField
                    AdrBook -> do
                      case e of
diff --git a/src/Zenith/Utils.hs b/src/Zenith/Utils.hs
index c5d9395..5d1ed4d 100644
--- a/src/Zenith/Utils.hs
+++ b/src/Zenith/Utils.hs
@@ -173,7 +173,6 @@ isRecipientValidGUI p a  = do
                     Exchange ea -> True
                     _ -> False
               Nothing -> False
-
     None -> case adr of  
               Just a -> 
                 case a of