diff --git a/src/Swarm/Game/Step.hs b/src/Swarm/Game/Step.hs
index c69e4e3b61..e0d97ae875 100644
--- a/src/Swarm/Game/Step.hs
+++ b/src/Swarm/Game/Step.hs
@@ -1007,7 +1007,7 @@ execConst c vs s k = do
 
   -- Increment command count regardless of success
   when (isTangible c) $
-    activityCounts . tangibleCommandCount %= (+ 1)
+    activityCounts . tangibleCommandCount += 1
 
   activityCounts . commandsHistogram %= M.insertWith (+) c 1