I've since made a number of changes outside of the above subroutine, and lately it's been working flawlessly. Unfortunately I don't know exactly what change fixed it, nor if the problem will stay fixed, but for the moment everything is good. (I'd delete this post if I could see how to do it.)