diff --git a/Ledger/LedgerTransaction.hs b/Ledger/LedgerTransaction.hs
index d607806bb..cdacf8945 100644
--- a/Ledger/LedgerTransaction.hs
+++ b/Ledger/LedgerTransaction.hs
@@ -22,7 +22,8 @@ instance Show ModifierTransaction where
 instance Show PeriodicTransaction where 
     show t = "~ " ++ (ptperiodicexpr t) ++ "\n" ++ unlines (map show (ptpostings t))
 
-nullentry = LedgerTransaction {
+nullledgertxn :: LedgerTransaction
+nullledgertxn = LedgerTransaction {
               ltdate=parsedate "1900/1/1", 
               ltstatus=False, 
               ltcode="", 
diff --git a/Tests.hs b/Tests.hs
index a939b5c11..fa124db5a 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -1325,7 +1325,7 @@ rawLedgerWithAmounts as =
         RawLedger 
         [] 
         [] 
-        [nullentry{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as]
+        [nullledgertxn{ltdescription=a,ltpostings=[nullrawposting{pamount=parse a}]} | a <- as]
         []
         []
         ""