diff --git a/src/pregmod/fSlaveSlaveVag.tw b/src/pregmod/fSlaveSlaveVag.tw
index f46012e3e09f483816b6d85909fbd0fbc75e9f5a..23636289e01133542129d8a627c18b762dbd7e58 100644
--- a/src/pregmod/fSlaveSlaveVag.tw
+++ b/src/pregmod/fSlaveSlaveVag.tw
@@ -14,7 +14,7 @@
 
 __Select an eligible slave:__
 <<for $i = 0; $i < $slaves.length; $i++>>\
-	<<if canPenetrate($slaves[$i])>>\
+	<<if (canPenetrate($slaves[$i])) or ($slaves[$i].clit >= 4)>>\
 	<<if ($slaves[$i].ID != $activeSlave.ID)>>\
 		<<print "[[$slaves[$i].slaveName|FSlaveSlaveVag Consummate][$slaverapistx = $slaves[" + $i + "]]]">>
 		<<set $eligibility = 1>>\
diff --git a/src/pregmod/reMaleCitizenHookup.tw b/src/pregmod/reMaleCitizenHookup.tw
index dba98d8d21eeb6b728291d762bd59a8aedbd2138..4133f988a558c7063291756b9f5f0fdae3899067 100644
--- a/src/pregmod/reMaleCitizenHookup.tw
+++ b/src/pregmod/reMaleCitizenHookup.tw
@@ -321,7 +321,7 @@ He's clearly attracted to you; even the most consummate actor would have difficu
 	<<switch _FS>>
 	<<case "Supremacist" "Subjugationist">>
 		superior body
-		<<if $FS == "Supremacist">>
+		<<if _FS == "Supremacist">>
 			<<set $arcologies[0].FSSupremacist += 5>>
 		<<else>>
 			<<set $arcologies[0].FSSubjugationist += 5>>
@@ -389,9 +389,9 @@ He's clearly attracted to you; even the most consummate actor would have difficu
 		<<set $arcologies[0].FSEgyptianRevivalist += 5>>
 	<<case "Edo Revivalist" "Arabian Revivalist" "Chinese Revivalist">>
 		graceful form
-		<<if $FS == "Edo Revivalist">>
+		<<if _FS == "Edo Revivalist">>
 			<<set $arcologies[0].FSEdoRevivalist += 5>>
-		<<elseif $FS == "Arabian Revivalist">>
+		<<elseif _FS == "Arabian Revivalist">>
 			<<set $arcologies[0].FSArabianRevivalist += 5>>
 		<<else>>
 			<<set $arcologies[0].FSChineseRevivalist += 5>>