diff --git a/src/uncategorized/headGirlSuite.tw b/src/uncategorized/headGirlSuite.tw
index 79e99876adb1c8ab84512f365c99438752904a75..1e816f2706568a6c20fff8e8be21abb046c1b0ac 100644
--- a/src/uncategorized/headGirlSuite.tw
+++ b/src/uncategorized/headGirlSuite.tw
@@ -9,14 +9,18 @@
 
 <<if $HeadGirl == 0>>
 	You have no Head Girl appointed to live in $HGSuiteName.
+	<<link "Select Head Girl">><<goto "HG Select">><</link>>
 <<elseif $HGSuiteSlaves > 0>>
 	<<setLocalPronouns $HeadGirl>>
 	Your Head Girl $HeadGirl.slaveName has $slaves[_i].slaveName living in $HGSuiteName with $him, as $his servant, assistant, and sexual appliance.
+	<<link "Manage Head Girl">><<goto "HG Select">><</link>>
 <<else>>
 	<<setLocalPronouns $HeadGirl>>
 	Your Head Girl $HeadGirl.slaveName lives alone in $his handsome suite.
+	<<link "Manage Head Girl">><<goto "HG Select">><</link>>
 <</if>>
 
+<<if $HeadGirl != 0>>
 <br>//Any slave assigned to live with your Head Girl will become, for most practical purposes, $his slave.//
 
 <br>
@@ -46,5 +50,5 @@
 <br><br>
 
 <<print App.UI.SlaveList.listSJFacilitySlaves(App.Entity.facilities.headGirlSuite)>>
-
+<</if>>
 <br><br>Rename $HGSuiteName: <<textbox "$HGSuiteName" $HGSuiteName "Head Girl Suite">> //Use a noun or similar short phrase//
diff --git a/src/uncategorized/hgSelect.tw b/src/uncategorized/hgSelect.tw
index fa76f8fa23baea0f7697821f876cf6bf1e044a4d..b0dd2398d7ee70ff5a10d8225ba5fb6c22a7d514 100644
--- a/src/uncategorized/hgSelect.tw
+++ b/src/uncategorized/hgSelect.tw
@@ -10,6 +10,9 @@
 	<<setLocalPronouns $HeadGirl>>
 	<<set _HGName = SlaveFullName($HeadGirl)>>
 	''__@@.pink;_HGName@@__'' is serving as your Head Girl<<if $arcologies[0].FSEgyptianRevivalistLaw == 1>> and Consort; it is $his role to serve and comfort you at your side, in addition to performing normal Head Girl duties<</if>>.
+	<<if ($HGSuite)>>
+		<br> Currently $he lives in <<link "$HGSuiteNameCaps""Head Girl Suite">><</link>>
+	<</if>>
 	<br><br>
 <</if>>