1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c
index e9b673b..0160f99 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -656,6 +656,9 @@ AllocObject(
     if (!nameStr) {
 	nameStr = oPtr->namespacePtr->name;
 	nsPtr = (Namespace *)oPtr->namespacePtr;
+	if (nsPtr->parentPtr != NULL) {
+	    nsPtr = nsPtr->parentPtr;
+	}
     }
     oPtr->command = TclCreateObjCommandInNs(interp, nameStr,
 	(Tcl_Namespace *)nsPtr, PublicObjectCmd, oPtr, NULL);