diff --git a/dhscanner-kbgen.cabal b/dhscanner-kbgen.cabal
--- a/dhscanner-kbgen.cabal
+++ b/dhscanner-kbgen.cabal
@@ -33,7 +33,7 @@
         * explain in plain English your query's purpose
         * et voilà !
 
-version:            1.0.24
+version:            1.0.25
 license:            GPL-3.0-only
 license-file:       LICENSE
 author:             OrenGitHub
diff --git a/src/Kbgen.hs b/src/Kbgen.hs
--- a/src/Kbgen.hs
+++ b/src/Kbgen.hs
@@ -487,9 +487,9 @@
 --     * 'ParamiOfCallable'
 --
 data CallMethodOfUntypedNamedParam = CallMethodOfUntypedNamedParam
-    Param -- ^
-    Token.ParamName -- ^
+    Call -- ^
     MethodName -- ^
+    Token.ParamName -- ^
     deriving ( Show, Eq, Ord, Generic, ToJSON, FromJSON )
 
 -- |
@@ -801,13 +801,13 @@
 prologify_ClassHas3rdPartySuper (ClassHas3rdPartySuper (Class c) (Token.SuperName (Token.Named s _)) (SuperQualifiedName f)) = prologify_ClassHas3rdPartySuper' c s f
 
 prologify_CallMethodOfUntypedNamedParam :: CallMethodOfUntypedNamedParam -> String
-prologify_CallMethodOfUntypedNamedParam (CallMethodOfUntypedNamedParam p name method) = prologify_CallMethodOfUntypedNamedParam' p name method
+prologify_CallMethodOfUntypedNamedParam (CallMethodOfUntypedNamedParam call method p) = prologify_CallMethodOfUntypedNamedParam' call method p
 
-prologify_CallMethodOfUntypedNamedParam' :: Param -> Token.ParamName -> MethodName -> String
-prologify_CallMethodOfUntypedNamedParam' (Param p) (Token.ParamName (Token.Named name _)) (MethodName m) = prologify_CallMethodOfUntypedNamedParam'' p name m
+prologify_CallMethodOfUntypedNamedParam' :: Call -> MethodName -> Token.ParamName -> String
+prologify_CallMethodOfUntypedNamedParam' (Call call) (MethodName m) (Token.ParamName (Token.Named _ p)) = prologify_CallMethodOfUntypedNamedParam'' call m p
 
-prologify_CallMethodOfUntypedNamedParam'' :: Location -> String -> String -> String
-prologify_CallMethodOfUntypedNamedParam'' p n m = printf "kb_call_method_of_untyped_named_param( %s, \'%s\', \'%s\' )." (locationify p) n m
+prologify_CallMethodOfUntypedNamedParam'' :: Location -> String -> Location -> String
+prologify_CallMethodOfUntypedNamedParam'' call m p = printf "kb_call_method_of_untyped_named_param( %s, \'%s\', %s )." (locationify call) m (locationify p)
 
 prologifyArgiForCall' :: Location -> Word -> Location -> String
 prologifyArgiForCall' a i c = printf "kb_arg_i_for_call( %s, %u, %s )." (locationify a) i (locationify c)