2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 3f54b517..269a9161 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-06-26  Kaz Kylheku  <kaz@kylheku.com>
 
+	* lib.c (search): Bugfix in type mismatch error message:
+	trying to print cons function pointer as value.
+
+2014-06-26  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (mapcarv): Use mapcar_listout, so list_of_lists can be
 	a non-list sequence.
 	(eval_init): Register transpose and zip as intrinsics.
diff --git a/lib.c b/lib.c
index 422396f0..197a89fb 100644
--- a/lib.c
+++ b/lib.c
@@ -5498,7 +5498,7 @@ val search(val seq, val key, val testfun, val keyfun)
     /* TODO: optimize me */
     return search_list(seq, key, testfun, keyfun);
   default:
-    type_mismatch(lit("search: ~s is not a sequence"), cons, nao);
+    type_mismatch(lit("search: ~s is not a sequence"), seq, nao);
   }
 
   return seq;