diff --git a/hs-src/Compiler/huskc.hs b/hs-src/Compiler/huskc.hs
index 1a24b8e7..5a2df5a9 100644
--- a/hs-src/Compiler/huskc.hs
+++ b/hs-src/Compiler/huskc.hs
@@ -18,12 +18,12 @@ import Language.Scheme.Types     -- Scheme data types
 import Language.Scheme.Variables -- Scheme variable operations
 import Control.Monad.Error
 import Data.Maybe (fromMaybe)
-import System.Cmd (system)
 import System.Console.GetOpt
 import System.FilePath (dropExtension)
 import System.Environment
 import System.Exit (ExitCode (..), exitSuccess, exitWith)
 import System.IO
+import System.Process (system)
 
 main :: IO ()
 main = do 
diff --git a/hs-src/Language/Scheme/Primitives.hs b/hs-src/Language/Scheme/Primitives.hs
index 4f6bdfee..4bdb7d89 100644
--- a/hs-src/Language/Scheme/Primitives.hs
+++ b/hs-src/Language/Scheme/Primitives.hs
@@ -173,12 +173,12 @@ import qualified Data.Map
 import qualified Data.Time.Clock.POSIX
 import Data.Unique
 import Data.Word
-import qualified System.Cmd
 import System.Directory (doesFileExist, removeFile)
 import qualified System.Environment as SE
 import System.Exit (ExitCode(..))
 import System.IO
 import System.IO.Error
+import qualified System.Process
 --import System.Process (readProcess)
 --import Debug.Trace
 
@@ -2022,7 +2022,7 @@ currentTimestamp _ = do
 --
 system :: [LispVal] -> IOThrowsError LispVal
 system [String cmd] = do
-    result <- liftIO $ System.Cmd.system cmd
+    result <- liftIO $ System.Process.system cmd
     case result of
         ExitSuccess -> return $ Number 0
         ExitFailure code -> return $ Number $ toInteger code