diff --git a/stream.isbpl b/stream.isbpl
index 093eb6c..b3254e5 100644
--- a/stream.isbpl
+++ b/stream.isbpl
@@ -31,9 +31,9 @@ func stream.readline {
             -1
             2 stop
         }
-        while { ( i 1 + =i ) ( byte 10 eq not ) } {
+        while { ( i 1 + =i ) ( byte 10 eq not byte -1 eq not) } {
             id STREAM.read stream dup =byte _char 
-        }
+        } pop
     ] =array
     array alen 0 eq if {
         array _string