I followed your instructions and had no problems. I added two shapes to a clean start slide and then deleted them at the same time, and then did it Ctrl+Z. then I ran this in the nearest window -
?ActivePresentation.Slides(1).Shapes(1).Parent.SlideIndex
And it worked and showed a value of 1.
, , , , . .