diff --git a/System/Process/Internals.hs b/System/Process/Internals.hs
index fc527e9249076c8f97fa1aff41bb9bcbfb3ac52b..a7918b5835c624b6da3afc8f71fdd771f735f1de 100644
--- a/System/Process/Internals.hs
+++ b/System/Process/Internals.hs
@@ -27,7 +27,9 @@ module System.Process.Internals (
 	runProcessWin32, translate,
 # endif
 #endif
+#ifndef __HUGS__
 	commandToProcess,
+#endif
 	withFilePathException, withCEnvironment
   ) where
 
@@ -269,6 +271,7 @@ translate str = '"' : snd (foldr escape (True,"\"") str)
 
 #endif
 
+#ifndef __HUGS__
 -- ----------------------------------------------------------------------------
 -- commandToProcess
 
@@ -344,6 +347,8 @@ foreign import stdcall unsafe "__hscore_get_osver"
   c_get_osver :: IO CUInt
 #endif
 
+#endif /* __HUGS__ */
+
 -- ----------------------------------------------------------------------------
 -- Utils