Index: generic/xotclError.c
===================================================================
diff -u -r2111020b49da8ce57758e51accf0b6073037f0d2 -r072e1c7c091c1370fc2fe26f66acf7a7cbd4a66f
--- generic/xotclError.c	(.../xotclError.c)	(revision 2111020b49da8ce57758e51accf0b6073037f0d2)
+++ generic/xotclError.c	(.../xotclError.c)	(revision 072e1c7c091c1370fc2fe26f66acf7a7cbd4a66f)
@@ -86,6 +86,13 @@
 }
 
 int
+XOTclObjErrArgCntObj(Tcl_Interp *interp, Tcl_Obj *cmdName,  Tcl_Obj *methodName, Tcl_Obj *msg) {
+  int rc = XOTclObjErrArgCnt(interp, cmdName,  methodName, ObjStr(msg));
+  DECR_REF_COUNT(msg);
+  return rc;
+}
+
+int
 XOTclErrBadVal(Tcl_Interp *interp, char *context, char *expected, char *value) {
   Tcl_ResetResult(interp);
   Tcl_AppendResult(interp, context, ": expected ", expected, " but got '",