diff --git a/backends/BackendPasses.hs b/backends/BackendPasses.hs
index 263f103..213b71b 100644
--- a/backends/BackendPasses.hs
+++ b/backends/BackendPasses.hs
@@ -48,7 +48,8 @@ backendPasses =
   , addSizesFormalParameters
   , addSizesActualParameters
   , fixMinInt
-  , mobileReturn
+-- This is not needed unless forking:
+--  , mobileReturn
   ]
 
 prereq :: [Property]
diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs
index 6b7f0af..4a63c8f 100644
--- a/backends/GenerateC.hs
+++ b/backends/GenerateC.hs
@@ -1546,7 +1546,8 @@ cgenProcAlloc n fs as
                 [do isMobile <- isMobileType t
                     let (s, fct) = case (am, isMobile) of
                               (A.ValAbbrev, _) -> ("ProcParam", id)
-                              (_, True) -> ("ProcMTMove", Pointer)
+                              -- This is not needed unless forking:
+                              --(_, True) -> ("ProcMTMove", Pointer)
                               _ -> ("ProcParam", id)
                     return $ zip (repeat s) $ realActuals f a fct
                 | (f@(A.Formal am t _), a) <- zip fs as]