2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 18b958ca..23d7836c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2014-02-21  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (subst_vars): Change throwing of query_error_s
+	to eval_error call. This is a leftover from when this was cloned
+	from its counterpart in match.c. However, I can't think of a way
+	this call can ever be reached.
+
 2014-02-20  Kaz Kylheku  <kaz@kylheku.com>
 
 	* eval.c (macro_form_p, macroexpand_1, macroexpand): New static
diff --git a/eval.c b/eval.c
index 7ab1fd63..7abf8911 100644
--- a/eval.c
+++ b/eval.c
@@ -1637,8 +1637,7 @@ static val subst_vars(val forms, val env)
         forms = cons(str, rest(forms));
         continue;
       }
-      uw_throwf(query_error_s, lit("unbound variable ~a"),
-                               form, nao);
+      eval_error(forms, lit("unbound variable ~s"), form, nao);
     }
 
     iter = list_collect(iter, form);