> Marc>   #! /bin/sh
> Marc>   "exec" "scheme-script" "$0" "$@"
> Marc>   (define (main arg1 arg2)
> Marc>     (write (+ (string->number arg1) (string->number arg2))))
> Marc>   (apply main (script-arguments))
>
> It has the problem mentioned in the rationale: I type C-c C-l in
> XEmacs (or "Execute" in DrScheme), and the thing runs when it
> shoudn't.

But in this case (script-arguments) will signal an error.  So the
script **won't** run.  Moreover the system will tell you that this
is a missuse of a script (of course you know this if you are debugging
it, but it also catches real mistakes).

Marc