From 8026a774a98acde5f9a692e97f38bf5ba6a317b3 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 23 Jan 2013 16:05:13 +0100
Subject: [PATCH] load files from the command line relative to the cwd

* module/ice-9/command-line.scm (load/lang): Load files from the command
  line relative to the current working directory (fixes regression).
---
 module/ice-9/command-line.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/ice-9/command-line.scm b/module/ice-9/command-line.scm
index 13274126b..9f8c9de88 100644
--- a/module/ice-9/command-line.scm
+++ b/module/ice-9/command-line.scm
@@ -184,7 +184,7 @@ If FILE begins with `-' the -s switch is mandatory.
 (define (load/lang f)
   (case (current-language)
     ((scheme)
-     (load f))
+     (load-in-vicinity (getcwd) f))
     (else
      ((module-ref (resolve-module '(system base compile)) 'compile-file)
       f #:to 'value))))