Okay, thank you; take your version as schatzOloid1; interestingly it runs under Animate (after the animation arrows have been clicked, of course (just for the logs))

Animate[schatzOloid1[23, \[Phi], \[Omega]], {\[Phi],   0, \[Pi]}, {\[Omega], 0, \[Pi]}, AnimationRunning -> False]

longer - for about 3 minutes - but then again Mathematica looses the definition.

schatzOloid is not an image of code, but anyway: find please in the appendix the notebook and the system Information about the machine to your comfort; Run the Animate commands each at least for a minute - just click the arrows and observe - with schatzOloid0 (2 Parameters, former schatzOloid) as well as with schatzOloid ( now 3 Parameters) - both loose seemingly the definition (in the original post the penultimate picture) and showing by chance the message about the beep, which is not in the notebook, but in the original post (last picture), because that's to my knowledge the only way to present it.

Attachments: