Fixed Issue #1

diff --git a/src/common/redirect.c b/src/common/redirect.c
index d81776dbcdbf81459b51c6dc5dc1c6396ecf07f2..b0dfafcb016e644d4463586f4744e4656ca7fa64 100644 (file)
--- a/src/common/redirect.c
+++ b/src/common/redirect.c
@@ -47,8 +47,12 @@ void memory_open (zword table, zword xsize, bool buffering)
 
        if (!buffering)
            xsize = 0xffff;
-       if (buffering && (short) xsize <= 0)
-           xsize = get_max_width ((zword) (- (short) xsize));
+       else {
+           if ((short) xsize >= 0)
+               xsize = get_max_width (xsize);
+           else
+               xsize = -xsize;
+       }
 
        storew (table, 0);