--- src.v2/mhitu.c	Sat Mar  1 13:39:51 2003
+++ src/mhitu.c	Sat Mar  1 14:11:07 2003
@@ -2281,6 +2281,23 @@
 				break;
 			}
 		}
+		if (mon->mtame) {
+			/* A pet should at least feel bad about hurting you. */
+			switch (rn2(3)) {
+				case 0:
+					verbalize("I'm sorry, %s.  I'll try not to do that next time.",
+						  (!rn2(2) ? "lover" :
+						   !rn2(2) ? "dear" :
+						   "sweetheart"));
+					break;
+				case 1:
+					verbalize("Oops.  I keep forgetting I can do that.");
+					break;
+				case 2:
+					verbalize("They say you always hurt the ones you love...");
+					break;
+			}
+		}
 	} else {
 		mon->mspec_used = rnd(100); /* monster is worn out */
 		You("seem to have enjoyed it more than %s...",