2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index a6af113f..00e5162f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2013-12-17  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (stdio_seek): Bugfix. Was returning current position
+	whenever offset is zero, regardless of whence argument.
+
+2013-12-17  Kaz Kylheku  <kaz@kylheku.com>
+
 	* parser.y (yybadtoken): Handle HASH_H.
 
 2013-12-17  Kaz Kylheku  <kaz@kylheku.com>
diff --git a/stream.c b/stream.c
index c20b3ca5..a9be6fd2 100644
--- a/stream.c
+++ b/stream.c
@@ -257,7 +257,7 @@ static val stdio_seek(val stream, cnum offset, enum strm_whence whence)
   struct stdio_handle *h = (struct stdio_handle *) stream->co.handle;
 
   if (h->f != 0) {
-    if (offset == 0) {
+    if (offset == 0 && whence == strm_cur) {
       long where = ftell(h->f);
       if (where >= 0)
         return num(where);