Duplication fix

src/npc/fSlaveImpreg.tw

@@ -13,7 +13,7 @@ __Select an eligible slave to serve as the semen donatrix:__
 <<for _i = 0; _i < $slaves.length; _i++>>
 	<<if ($slaves[_i].ID != $activeSlave.ID) && canImpreg($activeSlave, $slaves[_i])>>
 		<<set _name = SlaveFullName($slaves[_i])>>
-		<br><<print "[[_name|FSlaveImpreg Consummate][$impregnatrix = $slaves[" + _i + "], _i = " + _i + "]]">>
+		<br><<print "[[_name|FSlaveImpreg Consummate][$impregnatrix = $slaves[" + _i + "]]]">>
 		<<set $eligibility = 1>>
 	<</if>>
 <</for>>

src/npc/fSlaveImpregConsummate.tw

@@ -378,5 +378,5 @@ $activeSlave.slaveName and $impregnatrix.slaveName are likely to produce
 	slave with a decent ass.
 <</if>>
 
-<<set $slaves[$i] = $impregnatrix>> /* save changes -- $i is already set to the index of the impregnatrix by fSlaveImpreg */
+<<set $slaves[$slaveIndices[$impregnatrix.ID]] = $impregnatrix>> /* save changes */