Index: generic/xotcl.c
===================================================================
diff -u -r95e70e81b7ca203da0a892dcb39585eedf49b55f -r368155fc12211849992ff1ef8b51498007f97bec
--- generic/xotcl.c	(.../xotcl.c)	(revision 95e70e81b7ca203da0a892dcb39585eedf49b55f)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 368155fc12211849992ff1ef8b51498007f97bec)
@@ -9715,6 +9715,11 @@
     cl = NULL;
     allocation = 'o';
   }
+
+  if (withPer_object) {
+    allocation = 'o';
+  }
+
   cmd = Tcl_GetCommandFromObj(interp, cmdName);
   if (cmd == NULL)
     return XOTclVarErrMsg(interp, "cannot lookup command '",