Unfortunately, your code will not work in DrRacket or WeScheme.
animate consumes a function that take takes only one argument. DrRacket throws a much nicer error: run-simulation: expected function of one argument as first argument; given function of 2 arguments
I'll try to get a better error message up on WeScheme by next week.