2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index d3191013..eea30d4f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-01-13  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (put_byte): Bugfix: was checking whether the put_char
+	virtual function is not null, rather than put_byte.
+
+2014-01-13  Kaz Kylheku  <kaz@kylheku.com>
+
 	Bugfix in regex char ranges affecting ranges whose upper end
 	corresponds to the high bit of a bitmap cell: for instance
 	the character \x7f when the cell size is 32 bits.
diff --git a/stream.c b/stream.c
index 7ef91d5c..e7cf8b04 100644
--- a/stream.c
+++ b/stream.c
@@ -1777,7 +1777,7 @@ val put_byte(val byte, val stream)
 
   {
     struct strm_ops *ops = (struct strm_ops *) stream->co.ops;
-    return ops->put_char ? ops->put_byte(stream, b) : nil;
+    return ops->put_byte ? ops->put_byte(stream, b) : nil;
   }
 }