X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fwin32%2FOSThreads.c;h=e4cd76b7dcfdc34cfc2ba8e076c2df736bdd67ce;hb=4305e52b992a150854511af248a75d2154020b02;hp=d2e3d17b0dd18e064858eb758017ee5a802e1d1e;hpb=03aaa24e66ad6191d160c3d12377b4e56feaa435;p=ghc-hetmet.git

diff --git a/ghc/rts/win32/OSThreads.c b/ghc/rts/win32/OSThreads.c
index d2e3d17..e4cd76b 100644
--- a/ghc/rts/win32/OSThreads.c
+++ b/ghc/rts/win32/OSThreads.c
@@ -159,7 +159,7 @@ forkOS_createThreadWrapper ( void * entry )
 {
     Capability *cap;
     cap = rts_lock();
-    rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
+    cap = rts_evalStableIO(cap, (HsStablePtr) entry, NULL);
     rts_unlock(cap);
     return 0;
 }