I get no problems here:
euler-70% vi crap.scm euler-71% gsc crap euler-72% gsi crap euler-73% gsi Gambit Version 4.0 beta 20
(load "crap")
"/export/users/lucier/crap.o1"
*** EOF again to exit euler-74% cat crap.scm (define (loop i) (if (zero? i) '() (cons i (loop (- i 1)))))
(loop 20000)
Do you have (declare (not interrupts-enabled))? If so, it will crash if you overflow the stack.
Brad