diff --git a/Control/Monad/Conc/Fixed/Internal.hs b/Control/Monad/Conc/Fixed/Internal.hs
index 02ec397..a0d3b83 100644
--- a/Control/Monad/Conc/Fixed/Internal.hs
+++ b/Control/Monad/Conc/Fixed/Internal.hs
@@ -100,7 +100,7 @@ data ThreadAction =
   -- ^ Lift an action from the underlying monad.
   | Stop
   -- ^ Cease execution and terminate.
-  deriving (Eq, Ord, Show)
+  deriving (Eq, Show)
 
 -- | Run a concurrent computation with a given 'Scheduler' and initial
 -- state, returning a 'Just' if it terminates, and 'Nothing' if a
diff --git a/Control/Monad/Conc/SCT/Internal.hs b/Control/Monad/Conc/SCT/Internal.hs
index 32eb009..f77f69b 100755
--- a/Control/Monad/Conc/SCT/Internal.hs
+++ b/Control/Monad/Conc/SCT/Internal.hs
@@ -38,7 +38,7 @@ data Decision =
   -- ^ Continue running the last thread for another step.
   | SwitchTo ThreadId
   -- ^ Pre-empt the running thread, and switch to another.
-  deriving (Eq, Ord, Show)
+  deriving (Eq, Show)
 
 -- * SCT Runners