diff --git a/namecoin-update.hs b/namecoin-update.hs
index cbe990e..48350c8 100644
--- a/namecoin-update.hs
+++ b/namecoin-update.hs
@@ -6,8 +6,8 @@ import Data.Aeson
 import Data.Aeson.TH
 import Data.ByteString.Lazy.Char8 (pack)
 
-readCommand       = readProcess "namecoind" ["name_list"] ""
-updateCommand n v = readProcessWithExitCode "namecoind" ["name_update", n, v] ""
+readCommand       = readProcess "namecoin-cli" ["name_list"] ""
+updateCommand n v = readProcessWithExitCode "namecoin-cli" ["name_update", n, v] ""
 
 data Name = Name { name       :: String
                  , value      :: String