case mnesia:dirty_update_counter(mochilimitdb, Tag, Inc) of
	Inc ->
	    F = fun () ->
			[R] = mnesia:read(mochilimitdb, Tag, write),
			mnesia:write(R)
		end,
	    mnesia:transaction(F);
	_ ->
	    ok
    end.