diff --git a/alien-rpg.el b/alien-rpg.el
index e7776cc..54a0372 100644
--- a/alien-rpg.el
+++ b/alien-rpg.el
@@ -1247,8 +1247,9 @@ Průlezy G<->H: G3<->H3, G4<->H4, G7<->H7, G8<->H8, G9<->H9
          (name (nth 0 data))
          (total (nth 1 data))
          (stress (plist-get alien-rpg-state :stress)))
-    (message "%s: %d základ + %d stress = %d kostek celkem"
-             name total stress (+ total stress))))
+    (let ((effective (max 0 (- total stress))))
+      (message "%s: %d základ - %d stress = %d kostek"
+               name total stress effective))))
 
 (defun alien-rpg-add-injury (injury)
   "Přidej zranění."