diff --git a/src/arena.scm b/src/arena.scm
index 757fd8b..f7779ca 100644
--- a/src/arena.scm
+++ b/src/arena.scm
@@ -90,13 +90,15 @@
 			    #f)))
     (when (< 0.5 (random))
       (set-order-stance! o (pick-random '(high mid low))))
-    (set-order-atk!
-     o
-     (let ((roll (random)))
-       (cond
-	((> 0.6 roll) (unit-hand-pos enemy-unit))
-	((> 0.8 roll) (rotate-pos-cc (unit-hand-pos enemy-unit)))
-	(else (rotate-pos (unit-hand-pos enemy-unit))))))
+    (when (or (< 1 (unit-health enemy-unit))
+	      (< 0.5 (random)))
+      (set-order-atk!
+       o
+       (let ((roll (random)))
+	 (cond
+	  ((> 0.6 roll) (unit-hand-pos enemy-unit))
+	  ((> 0.8 roll) (rotate-pos-cc (unit-hand-pos enemy-unit)))
+	  (else (rotate-pos (unit-hand-pos enemy-unit)))))))
     o))
 
 (define (win)