diff --git a/Handler/Transfer.hs b/Handler/Transfer.hs
index c14d7b8..f2c3a3e 100644
--- a/Handler/Transfer.hs
+++ b/Handler/Transfer.hs
@@ -47,12 +47,14 @@ postTransferR from to =
       ((res, _), _) <- runFormPost
         $ renderBootstrap3 BootstrapBasicForm transferForm
       case res of
-        FormSuccess amount -> do
-          if amount < 0
-            then do
+        FormSuccess amount
+          | amount < 0 -> do
               setMessageI MsgNegativeTransfer
               redirect $ TransferR from to
-            else do
+          | userBalance sender < amount -> do
+              setMessageI MsgNotEnoughFunds
+              redirect HomeR
+          | otherwise -> do
               runDB $ update from [UserBalance -=. amount]
               runDB $ update to [UserBalance +=. amount]
               master <- getYesod
diff --git a/messages/cz.msg b/messages/cz.msg
index 9f6cf16..c570820 100644
--- a/messages/cz.msg
+++ b/messages/cz.msg
@@ -146,3 +146,4 @@ UserIdentNotUnique: Uživatelské jméno není jedinečný
 Login: Přihlásit
 Logout: Odhlásit
 CreationBlocked: Nelze vytvořit nové uživatele.
+NotEnoughFunds: Nedostatek kreditu
diff --git a/messages/de.msg b/messages/de.msg
index 7d35b8a..aeaf16b 100644
--- a/messages/de.msg
+++ b/messages/de.msg
@@ -146,3 +146,4 @@ UserIdentNotUnique: Benutzername ist nicht einzigartig
 Login: Login
 Logout: Logout
 CreationBlocked: Es können keine neuen Nutzer angelegt werden.
+NotEnoughFunds: Nicht genügen Guthaben
diff --git a/messages/en.msg b/messages/en.msg
index 9ec61e6..b12e551 100644
--- a/messages/en.msg
+++ b/messages/en.msg
@@ -146,3 +146,4 @@ UserIdentNotUnique: Username is not unique
 Login: Login
 Logout: Logout
 CreationBlocked: New users can not be created.
+NotEnoughFunds: Not enough funds!