2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 72764526..e6e383f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-10  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (eval_init): There is an until_s global variable, so
+	no need to intern the symbol when registering me_until.
+
 2015-04-09  Kaz Kylheku  <kaz@kylheku.com>
 
 	Fork and wait support.
diff --git a/eval.c b/eval.c
index c3e7d8ba..1236a84d 100644
--- a/eval.c
+++ b/eval.c
@@ -3935,7 +3935,7 @@ void eval_init(void)
   reg_mac(when_s, me_when);
   reg_mac(intern(lit("unless"), user_package), me_unless);
   reg_mac(while_s, me_while);
-  reg_mac(intern(lit("until"), user_package), me_until);
+  reg_mac(until_s, me_until);
   reg_mac(quasilist_s, me_quasilist);
   reg_mac(flet_s, me_flet_labels);
   reg_mac(labels_s, me_flet_labels);