Differential equations – slip oscillator: missing when event

Using Mathematica, I try to model the stick slip effect as recommended in the documentation (WhenEvent).

The initial condition starts from a state X[0]== 0, x & # 39;[0]== 0, F[0]== 0 with condtions Stick- fullfilled.

Here the exhausted model that seems to work

Clear[X, HAFT, frast]
F[t_]: = Sin[2 Pi 5 t];
frast = .5;
Handle[
{X, HAFT} = NDSolveValue[{.1 x''
X[0] == 0, x & # 39;[0] == 0, haft[0] == 1
,
Apply[WhenEvent{x'[WhenEvent{x'[WhenEvent{x'[WhenEvent{x'
, Apply[WhenEvent, {Abs[ F
, {x, haft}, {t, 0, tsim}, DiscreteVariables -> haft];
Plot[{X[{X[{X[{X

enter the description of the image here

Problems occur if I change the simulation time tsim to 1.5 (example):

enter the description of the image here

I wonder why MMA seems to miss the first event (t ~ = 0.015, == force 0.5)?

My question:
Is it possible to make event detection more robust?

Thank you!