diff --git a/artifacts/mods/gl_partycontrol.int b/artifacts/mods/gl_partycontrol.int
index 297282a7..c2a36601 100644
Binary files a/artifacts/mods/gl_partycontrol.int and b/artifacts/mods/gl_partycontrol.int differ
diff --git a/artifacts/mods/gl_partycontrol.ssl b/artifacts/mods/gl_partycontrol.ssl
index d6f7aae3..2e9d0f63 100644
--- a/artifacts/mods/gl_partycontrol.ssl
+++ b/artifacts/mods/gl_partycontrol.ssl
@@ -80,10 +80,12 @@ procedure combatturn_handler begin
       end
    end else if inControl then begin
       // remove perks before switching control (only work with 4.1.8+)
-      foreach (perkID in perksList) begin
-         level := has_trait(TRAIT_PERK, real_dude_obj, perkID);
-         if (level) then begin
-            critter_rm_trait(critter, TRAIT_PERK, perkID, level);
+      if (dude_obj != real_dude_obj) then begin
+         foreach (perkID in perksList) begin
+            level := has_trait(TRAIT_PERK, real_dude_obj, perkID);
+            if (level) then begin
+               critter_rm_trait(critter, TRAIT_PERK, perkID, level);
+            end
          end
       end
       if isShowTag then begin