diff --git a/lib/XMonad/Internal/Command/Desktop.hs b/lib/XMonad/Internal/Command/Desktop.hs
index d3e474e..746146d 100644
--- a/lib/XMonad/Internal/Command/Desktop.hs
+++ b/lib/XMonad/Internal/Command/Desktop.hs
@@ -143,7 +143,7 @@ runTMux = sometimesIO_ "terminal multiplexer" "tmux" deps act
       return $ t </> "tmux-" ++ show u </> "default"
 
 runCalc :: SometimesX
-runCalc = sometimesIO_ "calculator" "R" deps act
+runCalc = sometimesIO_ "calculator" "bc" deps act
   where
     deps = toAnd_ (sysExe myTermPkgs myTerm) (sysExe [Package Official "bc"] myCalc)
     act = spawnCmd myTerm ["-e", myCalc, "-l"]