diff --git a/backend/CloogleServer.icl b/backend/CloogleServer.icl
index f7a813530cac295ea1eb64a32b2025ce11d020df..35170726a8ee03c1d14783d98318eca968f0a20c 100644
--- a/backend/CloogleServer.icl
+++ b/backend/CloogleServer.icl
@@ -221,8 +221,8 @@ where
 	doInBackground f w
 	#! (pid,w) = fork w
 	| pid  < 0 = abort "fork failed\n"
-	| pid  > 0 = w   // Parent: return directly
-	| pid == 0 = f w // Child: do function
+	| pid  > 0 = w // Parent: return directly
+	| pid == 0 = snd $ exit 0 $ f w // Child: do function
 
 :: LogMemory =
 	{ mem_ip         :: IPAddress