diff --git a/hy_odoo/odoo.hy b/hy_odoo/odoo.hy
index ea0840c..022b2e5 100644
--- a/hy_odoo/odoo.hy
+++ b/hy_odoo/odoo.hy
@@ -39,7 +39,7 @@
 (defn ox-tree [&rest args] (xmln "tree" #*args))
 (defn ox-search [&rest args] (xmln "search" #*args))
 (defn ox-act-window [&rest args] (xmln "act_window" #*args))
-(defn ox-act-window-action [model attrs]
+(defn ox-act-window-model [model attrs]
   " Build new act_window from model and args"
   (setv model_und (.replace model "." "_")
         model_cap (.join " " (lfor w (.split model ".") (.capitalize w)))