2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 3d326c0e..22a9d4f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2012-09-01  Kaz Kylheku  <kaz@kylheku.com>
 
+	* eval.c (symbol_function): Bugfix: return the function rather than
+	the whole binding.
+
+2012-09-01  Kaz Kylheku  <kaz@kylheku.com>
+
 	* txr.1: Minor corrections, and documented most stream functions,
 	except directory-related ones.
 
diff --git a/eval.c b/eval.c
index ca7c51ec..60e0cebf 100644
--- a/eval.c
+++ b/eval.c
@@ -1849,7 +1849,7 @@ static val lazy_mappendv(val fun, val list_of_lists)
 
 static val symbol_function(val sym)
 {
-  return lookup_fun(nil, sym);
+  return cdr(lookup_fun(nil, sym));
 }
 
 static val rangev_func(val env, val lcons)