diff --git a/scheme/load.sld b/scheme/load.sld
index d05115e2..2bea4e00 100644
--- a/scheme/load.sld
+++ b/scheme/load.sld
@@ -5,11 +5,11 @@
           (scheme file)
           (scheme read))
   (begin
-    (define (load filename)
+    (define (load filename . env)
       (let ((exprs (call-with-input-file filename
                      (lambda (port)
                        (read-all port)))))
         (for-each
           (lambda (expr)
-            (eval expr))
+            (apply eval (cons expr env)))
           exprs)))))