diff --git a/Main.hs b/Main.hs
index 906a706..601469d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -17,7 +17,7 @@ deriveJSON defaultOptions ''Name
 
 
 namecoin :: [String] -> CreateProcess
-namecoin args = shell ("namecoin-cli -conf=$HOME/.config/namecoin " ++ unwords args)
+namecoin args = shell ("namecoind -conf=$HOME/.config/namecoin " ++ unwords args)
 
 
 readCommand       = readCreateProcess (namecoin ["name_list"]) ""