diff --git a/coin.cabal b/coin.cabal
--- a/coin.cabal
+++ b/coin.cabal
@@ -1,5 +1,5 @@
 name:              coin
-version:           1.2
+version:           1.2.1
 Build-Type:        Simple
 cabal-version:     >= 1.16
 author:            Piotr Borek <piotrborek@op.pl>
diff --git a/src/Coin/UI/Accounts/AccountsTransfer.hs b/src/Coin/UI/Accounts/AccountsTransfer.hs
--- a/src/Coin/UI/Accounts/AccountsTransfer.hs
+++ b/src/Coin/UI/Accounts/AccountsTransfer.hs
@@ -200,7 +200,7 @@
         entity <- historyViewGetSelected operationsView
         case entity of
             Just entity' -> do
-                accountsTransferRemove accountsBox accountName entity'
+                accountsTransferRemove entity'
                 accountsTransferViewUpdate mainState operationsView accountName cal
                 accountsTransferBalanceUpdate accountName balance
                 name <- Gtk.labelGetText accountName
@@ -286,20 +286,15 @@
         update toID [AccountsTableBalance +=. (fromIntegral value)]
         update fromID [AccountsTableBalance -=. (fromIntegral value)]
 
-accountsTransferRemove :: Gtk.ComboBox -> Gtk.Label -> Entity OperationsTable -> IO ()
-accountsTransferRemove accountsBox accountName entity = do
-    let (Entity entityID op) = entity
-
-    (Just toAccount) <- Gtk.comboBoxGetActiveText accountsBox
-    toID <- accountsTableSelectID $ T.unpack toAccount
-
-    fromName <- Gtk.labelGetText accountName
-    fromID <- accountsTableSelectID fromName
-
+accountsTransferRemove :: Entity OperationsTable -> IO ()
+accountsTransferRemove (Entity entityID op) =
     runDB $ do
         delete entityID
         update toID [AccountsTableBalance -=. (fromIntegral $ operationsTableValue op)]
         update fromID [AccountsTableBalance +=. (fromIntegral $ operationsTableValue op)]
+  where
+    toID = operationsTableTo op
+    fromID = operationsTableFrom op
 
 accountsTransferBalanceUpdate :: Gtk.Label -> Gtk.Label -> IO ()
 accountsTransferBalanceUpdate accountName balanceLabel = do
diff --git a/stack.yaml b/stack.yaml
--- a/stack.yaml
+++ b/stack.yaml
@@ -1,5 +1,8 @@
-flags: {}
+flags:
+  text:
+    integer-simple: false
 packages:
 - '.'
-extra-deps: []
-resolver: lts-7.7
+extra-deps:
+- text-1.2.2.1
+resolver: lts-8.18