diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index 3668ded0e..6c8645fb8 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -97,6 +97,7 @@ import Data.Tree
 import System.Time (ClockTime(TOD))
 import Text.Printf
 import qualified Data.Map as M
+import qualified Data.Set as S
 
 import Hledger.Utils 
 import Hledger.Data.Types
@@ -641,6 +642,7 @@ journalBalanceTransactionsST assrt j createStore storeIn extract =
                   (storeIn txStore) 
                   assrt
                   (Just $ journalCommodityStyles j)
+                  S.empty
     flip R.runReaderT env $ do
       dated <- fmap snd . sortBy (comparing fst) . concat
                 <$> mapM' discriminateByDate (jtxns j)
@@ -655,10 +657,11 @@ journalBalanceTransactionsST assrt j createStore storeIn extract =
 type CurrentBalancesModifier s = R.ReaderT (Env s) (ExceptT String (ST s))
 
 -- | Environment for 'CurrentBalancesModifier'
-data Env s = Env { eBalances :: HT.HashTable s AccountName MixedAmount
-                 , eStoreTx  :: Transaction -> ST s ()
-                 , eAssrt    :: Bool
-                 , eStyles   :: Maybe (M.Map CommoditySymbol AmountStyle) 
+data Env s = Env { eBalances     :: HT.HashTable s AccountName MixedAmount
+                 , eStoreTx      :: Transaction -> ST s ()
+                 , eAssrt        :: Bool
+                 , eStyles       :: Maybe (M.Map CommoditySymbol AmountStyle)
+                 , eUnassignable :: S.Set AccountName
                  }
 
 -- | This converts a transaction into a list of transactions or