fix as slave swap

src/pregmod/slaveSlaveSwapWorkaround.tw

 :: Slave Slave Swap Workaround [nobr]
 
 <<set $nextButton = "Abort Operation", $nextLink = "Main">>
-<<set $slaves[$slaveIndices[$activeSlave.ID]] = $activeSlave>>
 
-The surgeon awaits the pair of slaves to be strapped into the surgery. So far only $activeSlave.slaveName is prepped:
+The surgeon awaits the pair of slaves to be strapped into the surgery. So far only <<= getSlave($AS).slaveName>> is prepped:
 <br>
 //Select the slave who will be trading bodies with $him. This operation will cost <<print cashFormat(10000)>>.//
 
@@ -13,7 +12,7 @@ __Select an eligible slave:__
 	<<capture _i>>
 		<<if isSlaveAvailable($slaves[_i])>>
 			<<if $slaves[_i].fuckdoll == 0>>
-				<<if ($slaves[_i].ID != $activeSlave.ID)>>
+				<<if ($slaves[_i].ID != $AS)>>
 					<<set _name = SlaveFullName($slaves[_i])>>
 					<br>[[_name|Slave Slave Swap][$swappingSlave = $slaves[_i], cashX(-10000, "slaveSurgery", $slaves[_i])]]
 				<</if>>