X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=b4057591dabe2af4def492a0b224e295d57698ef;hp=a7a0f33872ff1048c68a1673e07fff7a3d351f85;hb=d480a72588fc62e36dda58089abcbd82d51fa3b8;hpb=e576ba5d31fbae54c43e88316fb0dbdba9cbd4ff

diff --git a/rts/Schedule.c b/rts/Schedule.c
index a7a0f33..b405759 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -643,7 +643,7 @@ run_thread:
     t->saved_errno = errno;
 #if mingw32_HOST_OS
     // Similarly for Windows error code
-    SetLastError(t->saved_winerror);
+    t->saved_winerror = GetLastError();
 #endif
 
 #if defined(THREADED_RTS)