diff --git a/src/Transaq.hs b/src/Transaq.hs
index ea1013e..9874413 100644
--- a/src/Transaq.hs
+++ b/src/Transaq.hs
@@ -343,7 +343,7 @@ newtype CommandCancelOrder =
 
 instance TransaqCommand CommandCancelOrder where
   toXml CommandCancelOrder{..} =
-    T.pack . showElement $ unode "command" ([strAttr "id" "cancelOrder"],
+    T.pack . showElement $ unode "command" ([strAttr "id" "cancelorder"],
       [ unode "transactionid" (show transactionId)])
 
 newtype CommandGetSecuritiesInfo =