From 5c21fee0a55014b719dd42ef9f718b54110e2185 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 16 Jul 2006 23:50:51 +0000
Subject: [PATCH] fix 'only' imports when module re-exports #%kernel

svn: r3734
---
 src/mzscheme/src/module.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 677f906306..c6692975e3 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -5387,7 +5387,7 @@ void add_single_require(Scheme_Module_Exports *me, /* from module */
       idx = kernel_symbol;
       one_exn = me->kernel_exclusion;
       me = kernel->me;
-      is_kern = !prefix && !unpack_kern && !ename && !has_context;
+      is_kern = !prefix && !unpack_kern && !ename && !has_context && !onlys;
     } else
       break;
   }