Add sanity check for strange characters before >>

And fix the mistakes that it catches

sanityCheck

@@ -99,6 +99,8 @@ $GREP -e "<<option " --and --not -e "<<option  *\(-\?[0-9]\+\|[\'\"].*[\'\"]\|fa
 # check for missing ; before statement
 $GREP 'if $ ' -- 'src/*'  | myprint "missing ; before statement"
 $GREP 'elseif $ ' -- 'src/*'  | myprint "missing ; before statement"
+# Check for an unrecognized letter before >>
+$GREP "[^]a-zA-Z0-9 \")}'+-\*\`] *>>" -- 'src/*' | myprint "StrangeCharacterAtEndOfCommand"
 # Check for a . inside a <<>>
 $GREP "<<[a-zA-Z]\([^\"'>]\|[^\"'>]>[^\"'>]\)*[a-zA-Z][.][^a-zA-Z]" | myprint "StrangeCharacterAfterDot"
 # Check for @@. instead of .@@

src/uncategorized/bodyModification.tw

@@ -395,7 +395,7 @@ Choose piercing style:
 		<<if $activeSlave.lipsPiercing != 1>><<set $activeSlave.lipsPiercing = 1>>				<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
 		<<if $activeSlave.tonguePiercing != 1>><<set $activeSlave.tonguePiercing = 1>>			<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
 		<<if $activeSlave.nipples != "fuckable">>
-			<<if $activeSlave.nipplesPiercing != 1 && >><<set $activeSlave.nipplesPiercing = 1>><<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
+			<<if $activeSlave.nipplesPiercing != 1>><<set $activeSlave.nipplesPiercing = 1>><<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
 		<</if>>
 		<<if $activeSlave.areolaePiercing != 1>><<set $activeSlave.areolaePiercing = 1>>		<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>
 		<<if $activeSlave.corsetPiercing != 1>><<set $activeSlave.corsetPiercing = 1>>			<<run cashX(forceNeg($modCost), "slaveMod", $activeSlave)>><</if>>

src/uncategorized/dairyReport.tw

@@ -458,7 +458,7 @@
 		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $slaves[$i])>>
 	<</if>>
 	<<if $slaves[$i].vasectomy == 1>>
-		<<set $slaves[$i].vasectomy = 0, $slaves[$i].health -= 10,>>
+		<<set $slaves[$i].vasectomy = 0, $slaves[$i].health -= 10>>
 		<<run cashX(forceNeg($surgeryCost), "slaveSurgery", $slaves[$i])>>
 	<</if>>
 	<<if ($dairySlimMaintain == 0)>>