hyper3 objects lose pnames

[RobinHankin]

library("hyper2")
#> Loading required package: cubature

H <- chess3[c(Anand=1)]
print(pnames(H))
#> [1] "Anand"    "Karpov"   "Kasparov"

H[c(Anand=2,Karpov=3)] <- -15
print(pnames(H))
#> [1] "Anand"  "Karpov"

print(H)
#> log( (Anand=1)^15 * (Anand=2, Karpov=3)^-15)

^{Created on 2024-05-21 with reprex v2.1.0}

The second print statement shows that Kasparov has disappeared.