[Bug-mit-scheme] Instant Crash in 64-bit version

[gjs]

The following, when compiled by c-scheme (64-bit) 
            (cf "bug-iota")
then loaded
            (load "bug-iota")
kills the system... it disappears without
a trace!  The version is:

Image saved on Friday May 1, 2009 at 4:50:19 PM
  Release 7.7.90.+ || Microcode 15.1 || Runtime 15.7 
                      SF 4.41 || LIAR/i386 4.118
                      Edwin 3.116 || SOS 1.8
                      IMAIL 1.21

When compiled and loaded into a i386 (32-bit)
system it just reports a stack overflow.




;;; The following is the content of bug-iota.scm.

(define (iota1 to)
  (define (step where)
    (if (>= where to)
        '()
        (cons where (step (+ where 1)))))
  (step 0))

(for-each (lambda (y) (expt 100. y))
          (iota1 100000))