diff --git a/VECTO/MODcalc/cPower.vb b/VECTO/MODcalc/cPower.vb
index a5395ecb8b23670802bcea193f9791f75f4fa030..739260ab4fdbe6c40095ad2649dfd4333da849eb 100644
--- a/VECTO/MODcalc/cPower.vb
+++ b/VECTO/MODcalc/cPower.vb
@@ -1157,7 +1157,8 @@ lb_nOK:
             If P > Pmax Then
                 If EngState0 = tEngState.Load Or EngState0 = tEngState.FullLoad Then
                     If PwheelVorg Then
-                        P = Pmax
+                        MODdata.Vh.Pwheel(jz) *= 0.999
+                        GoTo lbGschw
                     ElseIf Vact > 0.01 Then
                         Vh.ReduceSpeed(jz, 0.9999)
                         FirstSecItar = False