diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss
index b328200..673f760 100644
--- a/scheme/ikarus.load.ss
+++ b/scheme/ikarus.load.ss
@@ -81,7 +81,13 @@
          (die 'load "not a string" x))
        (unless (procedure? eval-proc)
          (die 'load "not a procedure" eval-proc))
-       (for-each eval-proc (read-script-source-file x))]))
+       (let ([ls (read-script-source-file x)])
+         (let f ()
+           (unless (null? ls)
+             (let ([a (car ls)])
+               (set! ls (cdr ls))
+               (eval-proc a))
+             (f))))]))
   (define load-r6rs-top-level
     (lambda (x how)
       (let ([prog (read-script-source-file x)])
diff --git a/scheme/last-revision b/scheme/last-revision
index eff9e16..f800fc8 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1616
+1617