2 files changed, 9 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 61e35a34..a335c4a1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-02-24  Kaz Kylheku  <kaz@kylheku.com>
 
+	* debug.c (debug): Fix 2013-12-02 regression, which leaves the
+	debugger not printing the current line of data.
+
+2014-02-24  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (eval_init): Intern symlink_wrap, link_wrap, readlink_wrap.
 
 	* stream.c (symlink_wrap, link_wrap, readlink_wrap): New functions.
diff --git a/debug.c b/debug.c
index afef0835..96a97580 100644
--- a/debug.c
+++ b/debug.c
@@ -92,7 +92,10 @@ val debug(val form, val bindings, val data, val line, val pos, val base)
   val loc = source_loc(form);
   cons_bind (lineno, file, loc);
 
-  data = if2(consp(data), car(data));
+  if (consp(data))
+    data = car(data);
+  else if (data == t)
+    data = nil;
 
   if (!step_mode && !memqual(loc, breakpoints) 
       && (debug_depth > next_depth))