Something like this should do it:
global number speed=0
every tick
--- set speed to distance(0,0,Sprite.Physics.VelocityX,Sprite.Physics.VelocityY)
System: variable speed > 90
---- Sprite: Physics: set velocity to Sprite.Physics.VelocityX/speed*90, Sprite.Physics.VelocityY/speed*90