Pass arcology id to agent recall passage

Fixes #825.

src/uncategorized/neighborInteract.tw

@@ -272,7 +272,7 @@ You have <<print $arcologies.length-1>> neighbors. <br><br>
 			[[Appoint an agent|Agent Select]] <<set $him = "them">>
 		<<else>>
 			<<setLocalPronouns _Agent>>
-			Your agent @@.deeppink;<<= SlaveFullName(_Agent)>>@@ is running this arcology. [["Recall and reenslave " + $him|Agent Retrieve]]
+			Your agent @@.deeppink;<<= SlaveFullName(_Agent)>>@@ is running this arcology. [["Recall and reenslave " + $him|Agent Retrieve][$activeArcologyIdx = _currentNeighbor]]
 		<</if>>
 		<span id="rename"> | <<link "Instruct $him to rename the arcology">><<replace #rename>> | <<textbox "$arcologies[$activeArcologyIdx].name" $arcologies[$activeArcologyIdx].name>> [[Confirm name|Neighbor Interact]]<</replace>><</link>></span>
 		<<if $arcologies[_currentNeighbor].government === "your agent">>