diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 3edf42ab9..1d6531880 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -837,7 +837,7 @@ updateCloud w c
   where
     newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.01 * vertVel)
     newVel2 = stripZ newVel
-    vertVel = clAlt c - opz
+    vertVel = min 5 $ clAlt c - opz
     springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
     oldPos@(V3 _ _ opz) = _clPos c
     oldPos2 = stripZ oldPos