fix failing unit test on windows

diff --git a/core/io/windows/stream.factor b/core/io/windows/stream.factor
index d0c226774752b365c58fb56a291e4f4ae7939789..9b6071795739826b1f8074c9d694ad7c5a43928e 100644 (file)
--- a/core/io/windows/stream.factor
+++ b/core/io/windows/stream.factor
@@ -166,6 +166,7 @@ C: win32-stream ( handle -- stream )
     0 swap [ set-win32-stream-cutoff ] keep
     dup win32-stream-handle f GetFileSize dup -1 = [ drop f ] when
     over set-win32-stream-file-size
+    dup win32-stream-file-size zero? [ t over set-win32-stream-eof? ] when
     0 swap [ set-win32-stream-fileptr ] keep ;
 
 C: win32-stream-reader ( stream -- stream )