[project @ 2005-10-26 13:58:40 by simonmar]

[ghc-hetmet.git] / ghc / rts / posix / OSThreads.c

diff --git a/ghc/rts/posix/OSThreads.c b/ghc/rts/posix/OSThreads.c
index 6b5918b..07bd762 100644 (file)
--- a/ghc/rts/posix/OSThreads.c
+++ b/ghc/rts/posix/OSThreads.c
@@ -139,7 +139,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 NULL;
 }