diff --git a/atm.lua b/atm.lua
index 14ef82b..cd237bc 100644
--- a/atm.lua
+++ b/atm.lua
@@ -116,7 +116,7 @@ local function log_fs(p_name)
 	for i, entry in ipairs(exchange:player_log(p_name)) do
 		i = i*4
 		res[i] = ","
-		res[i+1] = tostring(entry.Time)
+		res[i+1] = os.date("%y-%m-%d %H:%M:%S", entry.Time)
 		res[i+2] = ","
 		res[i+3] = entry.Message
 	end
diff --git a/exchange.lua b/exchange.lua
index e3bfdee..b46e46d 100644
--- a/exchange.lua
+++ b/exchange.lua
@@ -458,6 +458,12 @@ function ex_methods.change_balance(self, p_name, delta)
 		return false, p_name .. " does not have enough money."
 	end
 
+	if delta > 0 then
+		self:log("Deposited " .. delta .. " credits", p_name)
+	else --assume delta is never 0
+		self:log("Withdrew " .. -delta .. " credits", p_name)
+	end
+
 	return self:set_balance(p_name, bal + delta)
 end
 
diff --git a/exchange_machine.lua b/exchange_machine.lua
index 1bf0359..2161e4e 100644
--- a/exchange_machine.lua
+++ b/exchange_machine.lua
@@ -201,8 +201,9 @@ minetest.after(0, function()
   on_put = function(inv, listname, index, stack, player)
     local p_name = player:get_player_name()
     if listname == 'money' and minetest.get_item_group(stack:get_name(), 'minegeld') then
+      local old_balance = exchange:get_balance(p_name)
       local balance = bills2balance(stack, p_name)
-      exchange:set_balance(p_name, balance)
+      exchange:change_balance(p_name, balance - old_balance)
       local stacks = inv:get_list('money')
       local tens = math.floor(balance/10)
       if tens > 0 then