diff --git a/std/living/combat.c b/std/living/combat.c
index 2b05d85..8400d4c 100644
--- a/std/living/combat.c
+++ b/std/living/combat.c
@@ -1293,10 +1293,10 @@
     // Um Rundungsverluste zu reduzieren, wird P_BODY anfangs mit 10000
     // skaliert. Beim runterskalieren wird aufgerundet (Addition von
     // 5000 vor Division).
-    int body = QueryProp(P_BODY)+QueryAttribute(A_DEX);
+    int body = (QueryProp(P_BODY)+QueryAttribute(A_DEX)) * 10000;
     res2 = ((body/4 + random(body*3/4 + 1) + 5000)/10000) || 1;
     if (stat)
-      stat->bodystat(body, res2, random(body)+1);
+      stat->bodystat(body, res2, (random(body)+1)/10000);
 
     // Reduzierbare Wirksamkeit des Bodies?
     if ( member(spell[SP_REDUCE_ARMOUR], P_BODY)