1 files changed, 4 insertions, 0 deletions
diff --git a/parser.c b/parser.c
index f5edfbed..d876a4fa 100644
--- a/parser.c
+++ b/parser.c
@@ -404,6 +404,7 @@ static void load_rcfile(val name)
   val catch_syms = cons(error_s, nil);
   val path_private_to_me_p =  intern(lit("path-private-to-me-p"), user_package);
   val path_exists_p =  intern(lit("path-exists-p"), user_package);
+  val self_load_path_old = nil;
 
   if (!funcall1(path_exists_p, name))
     return;
@@ -412,6 +413,8 @@ static void load_rcfile(val name)
 
   open_txr_file(name, &lisp_p, &resolved_name, &stream);
 
+  self_load_path_old = set_get_symacro(self_load_path_s, resolved_name);
+
   if (stream) {
     if (!funcall1(path_private_to_me_p, statf(stream))) {
       format(std_output,
@@ -431,6 +434,7 @@ static void load_rcfile(val name)
   }
 
   uw_unwind {
+    set_get_symacro(self_load_path_s, self_load_path_old);
     if (stream)
       close_stream(stream, nil);
   }