use cl-do instead of do

Sorry, I missed that one.