diff --git a/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc b/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc
index 1d45ba8a383..c3e27f3c116 100644
--- a/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc
+++ b/trace-resources/src/Cardano/Logging/Resources/Darwin.hsc
@@ -106,7 +106,7 @@ readResourceStatsInternal = getProcessID >>= \pid -> do
    nsToCenti :: GhcStats.RtsTime -> Word64
    nsToCenti = fromIntegral . (`div` 10000000)
    timeValToCenti :: TIME_VALUE_T -> Word64
-   timeValToCenti tv = 10000 `div` (usFromTimeValue tv)
+   timeValToCenti tv = usFromTimeValue tv `div` 10000
 
 usFromTimeValue :: TIME_VALUE_T -> Word64
 usFromTimeValue (TIME_VALUE_T s us) = s * 1000000 + us