diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index f69514b..fcd1578 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Werewolf: Fixed a bug that occasionally caused a person to get wolf
+      twice in the same game.
     * Werewolf: Fixed a typo that broke the gun on occasion.
     * Fixed a minor retract bug in Werewolf.
     * Fixed two major bugs in Werewolf that messed up game play.
diff --git a/modules/Werewolf.pm b/modules/Werewolf.pm
index f4ee982..8dcaaa7 100644
--- a/modules/Werewolf.pm
+++ b/modules/Werewolf.pm
@@ -217,7 +217,7 @@ sub cmd_wolf {
                 # Set wolves.
                 while ($cwolves > 0) {
                     my $rpi = $plyrs[int rand scalar @plyrs];
-                    if ($PLAYERS{$rpi} !~ m/^(s|g|h|d|t)$/xsm) {
+                    if ($PLAYERS{$rpi} !~ m/^(w|s|g|h|d|t)$/xsm) {
                         $PLAYERS{$rpi} = 'w';
                         $cwolves--;
                         $STATIC[0] .= ", \2$NICKS{$rpi}\2";