io.files.windows: fix can-seek? and length

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index d278ad06e6a08de9dc2ea2483722c5a8a854569b..67e01833f63674d58d789205bdc47135cdfc5cb1 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -152,10 +152,10 @@ M: windows seek-handle ( n seek-type handle -- )
     } case ;
 
 M: windows can-seek-handle? ( handle -- ? )
-    handle>file-size zero? not ;
+    handle>> handle>file-size zero? not ;
 
 M: windows handle-length ( handle -- n/f )
-    handle>file-size [ f ] when-zero ;
+    handle>> handle>file-size [ f ] when-zero ;
 
 : file-error? ( n -- eof? )
     zero? [