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];