From a00c69b6f765c4c22f00633ad02cb2972b024c5a Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Mon, 31 Aug 2009 23:56:00 -0500
Subject: [PATCH] badly initialised memory stream (obs from J Santos).

---
 C/iopreds.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C/iopreds.c b/C/iopreds.c
index 23f084177..39334f565 100755
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2831,6 +2831,7 @@ open_buf_write_stream(char *nbuf, UInt  sz)
   st->u.mem_string.pos = 0;
   st->u.mem_string.buf = nbuf;
   st->u.mem_string.max_size = sz;
+  st->u.mem_string.src = MEM_BUF_CODE;
   return sno;
 }