Moved zero? procedure TOD to extras package