diff --git a/src/Zenith/CLI.hs b/src/Zenith/CLI.hs
index 0c7e67b..b750780 100644
--- a/src/Zenith/CLI.hs
+++ b/src/Zenith/CLI.hs
@@ -530,7 +530,7 @@ mkSendForm bal =
     ]
   where
     isAmountValid :: Integer -> Float -> Bool
-    isAmountValid b i = (fromIntegral b * 100000000.0) >= i
+    isAmountValid b i = ((fromIntegral b * 100000000.0) >= i) && (i > 0)
     label s w =
       padBottom (Pad 1) $ vLimit 1 (hLimit 15 $ str s <+> fill ' ') <+> w