Replace this function in affs.lua. Look for it, replace it.

function unimpaled(msg)
  if msg == "cross" then
    del_queue("crucified")
  elseif msg == "antlers" then
    del_queue("impale_antlers")
  elseif string.find(msg, "gut") then
    del_queue("impale_gut")
  elseif string.find(msg, "left") then
    del_queue("pinned_left")
	if string.find(msg, "second") then
		add_queue("pinned_left")
	end
  elseif string.find(msg, "second") then
		add_queue("pinned_right")
  else
    del_queue{"pinned_right", "pinned_left"}
  end

  flags.clear{"writhing", "writhing_try"}
  local wi = flags.get("writhing_impale") or 0
  if wi > 1 then
    flags.set("writhing_impale", wi - 1, 6)
  else
    flags.clear("writhing_impale")
  end
end

Look for current pinleg trigger. Can't remember which xml it's in now, but once you do, replace with this.

  <trigger
   enabled="y"
   group="Track"
   match="^With an heroic effort you manage to writhe yourself free from the (cross|antlers|(?:second|only )?blade through your left foot|(?:second|only )?blade through your right foot|blade through your gut)\.$"
   name="cureimpaleheroic__"
   regexp="y"
   send_to="12"
   sequence="10000"
  >
  <send>flags.clear{"writhing", "writhing_try"}
affs.unimpaled("%1")</send>
  </trigger>