fix win32 error handling

diff --git a/basis/io/backend/windows/nt/nt.factor b/basis/io/backend/windows/nt/nt.factor
index 46f8be22f0f1c42ab4ceada6bc763606e89cbc9e..bb5c115549c9c24cb7c9c2846ab78e08f92df62c 100755 (executable)
--- a/basis/io/backend/windows/nt/nt.factor
+++ b/basis/io/backend/windows/nt/nt.factor
@@ -105,7 +105,7 @@ M: winnt seek-handle ( n seek-type handle -- )
         GetLastError {
             { [ dup expected-io-error? ] [ drop f ] }
             { [ dup eof? ] [ drop t ] }
-            [ win32-error-string throw ]
+            [ n>win32-error-string throw ]
         } cond
     ] [ f ] if ;