load.c.diff

diff --git src/load.c src/load.c
index 39a08ba..41fdfa2 100644
--- src/load.c
+++ src/load.c
@@ -202,8 +202,11 @@ static ScmObj load_after(ScmObj *args, int nargs, void *data)
 /* C-continuation of the loading */
 static ScmObj load_cc(ScmObj result, void **data)
 {
+    ScmObj read_proc = SCM_UNDEFINED;
+    SCM_BIND_PROC(read_proc, "read", Scm_GaucheInternalModule());
+
     struct load_info *p = (struct load_info*)(data[0]);
-    ScmObj expr = Scm_Read(SCM_OBJ(p->port));
+    ScmObj expr = Scm_ApplyRec1(read_proc, SCM_OBJ(p->port));
 
     if (!SCM_EOFP(expr)) {
         Scm_VMPushCC(load_cc, data, 1);