use cl-do instead of do

Sorry, I misses that one.