diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor index 0531551b60..684d8f13d7 100644 --- a/basis/io/files/windows/windows.factor +++ b/basis/io/files/windows/windows.factor @@ -399,7 +399,7 @@ M: windows home WIN32_FIND_STREAM_DATA 0 [ FindFirstStream ] keepd - over INVALID_HANDLE_VALUE = [ + over -1 = [ 2drop throw-win32-error ] [ 1vector swap file-streams-rest