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>>
diff --git a/src/uncategorized/reputation.tw b/src/uncategorized/reputation.tw
index e70ba3e9d95160723ee7de6230cccbefe68d4e7a..89b1460d88a6af865873e2540ec0974b93c2df8d 100644
--- a/src/uncategorized/reputation.tw
+++ b/src/uncategorized/reputation.tw
@@ -256,7 +256,7 @@ On formal occasions, you are announced as $PCTitle.
 		Society finds fake breasts repuslive and yours are no exception; your balloon-like breasts @@.red;harm@@ your public image.
 		<<set $rep -= (10*$PC.boobsBonus)>>
 	<</if>>
-	<<if $PC.butt == 3>>
+	<<if $PC.buttImplant == 1>>
 		Society finds fake butts unsightly and yours is no exception; your inflated ass @@.red;harms@@ your public image.
 		<<set $rep -= (10*$PC.butt)>>
 	<</if>>
@@ -558,7 +558,7 @@ On formal occasions, you are announced as $PCTitle.
 <<if $failedElite > 1>>
 	<<set $failedElite -= 1>>
 <</if>>
-<<if $PC.degeneracy > 0>>
+<<if $PC.degeneracy > 1>>
 	<<set $PC.degeneracy -= 1>>
 <</if>>