Typo.
R5RS (do ((var init step) ...) ...) r5rs syntax.