How do I sleep for a few seconds in Smalltalk Pharo, and be able to interrupt this? -

i'm debugging keyboard event code , want loop sleep (to give me chance create keyboard event), when pharo won't let me quit command-. debugging difficult. had wait 500 seconds fix in code below...

100 timesrepeat: [      transcript show: 'type a... '.     (delay forseconds: 5) wait.     (sensor keypressed: $a) iftrue: [ transcript show: 'you pressed a' ]. ] 

so how can make command-. work, or there more suitable (delay forseconds: 5) wait.?

works fine in squeak on mac os x (using peekkeyboardevent, not have keypressed:). it's not code's fault, interrupting should work fine.