2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 87e53de9..d59677a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-02  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (eval_init): Fix regression introduced in
+	2011-12-29 commit. We can't use mod_s, because the module
+	which sets up that variable is not yet initialized.
+
 2012-01-01  Kaz Kylheku  <kaz@kylheku.com>
 
 	Make C globals in TXR Lisp properly assignable, so that for instance
diff --git a/eval.c b/eval.c
index b9ff8197..fee3a50a 100644
--- a/eval.c
+++ b/eval.c
@@ -1286,7 +1286,7 @@ void eval_init(void)
   reg_fun(intern(lit("*"), user_package), func_n0v(mulv));
   reg_fun(intern(lit("abs"), user_package), func_n1(abso));
   reg_fun(intern(lit("trunc"), user_package), func_n2(trunc));
-  reg_fun(mod_s, func_n2(mod));
+  reg_fun(intern(lit("mod"), user_package), func_n2(mod));
   reg_fun(intern(lit("expt"), user_package), func_n0v(exptv));
   reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod));
   reg_fun(intern(lit("sqrt"), user_package), func_n1(isqrt));