From 94c77febc0edb8409876fbb45bb42f547e569da7 Mon Sep 17 00:00:00 2001
From: cohrs <cohrs>
Date: Sat, 2 Feb 2002 05:00:08 +0000
Subject: [PATCH] dragons have scales, not fur body_part should return "scales"
 for the HAIR part of a dragon

---
 src/polyself.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/polyself.c b/src/polyself.c
index 3c2ac0d72..9c38369cc 100644
--- a/src/polyself.c
+++ b/src/polyself.c
@@ -1174,7 +1174,7 @@ int part;
 	    return horse_parts[part];
 	if (mptr->mlet == S_EEL && mptr != &mons[PM_JELLYFISH])
 	    return fish_parts[part];
-	if (slithy(mptr))
+	if (slithy(mptr) || (mptr->mlet == S_DRAGON && part == HAIR))
 	    return snake_parts[part];
 	if (mptr->mlet == S_EYE)
 	    return sphere_parts[part];