   (insert ", an agility of ")
   (insert (int-to-string orc-battle-player-agility))
   (insert ", and a strength of ")
-  (insert (int-to-string orc-battle-player-strength)))
+  (insert (int-to-string orc-battle-player-strength))
+  (newline))
 
 (defun player-attack ()
   (newline)

    (cond ((= x orc-battle-player-health)
           (insert "A brigand hits you with his slingshot, taking off 2 health
points! ")
           (decf orc-battle-player-health 2))
          ((= x orc-battle-player-agility)
           (insert "A brigand catches your leg with his whip, taking off 2
agility points! ")
           (decf orc-battle-player-agility 2))
          ((= x orc-battle-player-strength)
           (insert "A brigand cuts your arm with his whip, taking off 2
strength points! ")
           (decf orc-battle-player-strength 2)))))


  (if (monster-dead m)
      (progn (insert "You killed the ")
             (insert (symbol-name (object-class m)))
             (insert "! ")
             (newline))
      (progn (insert "You hit the ")
             (insert (symbol-name (object-class m)))
             (insert ", knocking off ")
             (insert (int-to-string x))
             (insert " health points! ")
             (newline))))

(defmethod monster-show (m)
  (insert "A fierce ")
