diff --git a/devTools/spell_check.txt b/devTools/spell_check.txt
index 3c0098d47d613b1e3859882e895523d43da3681b..382e0999b0faf9d5fa5f470542d0a147f9478dbe 100644
--- a/devTools/spell_check.txt
+++ b/devTools/spell_check.txt
@@ -3724,6 +3724,7 @@ s/\bthrid\b/third/g
 s/\bthrorough\b/thorough/g
 s/\bthroughly\b/thoroughly/g
 s/\bthrougout\b/throughout/g
+s/\bthru\b/through/g
 s/\bthsi\b/this/g
 s/\bthsoe\b/those/g
 s/\bthta\b/that/g
diff --git a/sanityCheck b/sanityCheck
index f1b9e1a747632e79619c7d4478765d338b95c7e5..1784ec0196d8bf47bd4d0db1dad4423eb5c57ebd 100755
--- a/sanityCheck
+++ b/sanityCheck
@@ -21,7 +21,7 @@ GREP="git grep -n --color"
 $GREP "<</[^>]*>[^>]" -- 'src/*'  | myprint "MissingClosingAngleBracket"
 $GREP "<<[^>()]*>[^()<>"$'\r]*\r'"\?$" -- 'src/*' | myprint "MissingClosingAngleBracket"
 # Check for missing left angle bracket: </if>>
-$GREP "\([^<]\|^\)</\?\(if\|else\|case\)" -- 'src/*' | myprint "MissingOpeningAngleBracket2"
+$GREP "\([^<]\|^\)</\?\(if\|else\|case\|set\|print\|elseif\)" -- 'src/*' | myprint "MissingOpeningAngleBracket2"
 # Check for accidental assignment.  e.g.:   <<if $foo = "hello">>
 $GREP "<<[ ]*if[^>=]*[^><\!=]=[^=][^>]*>>" -- 'src/*' | myprint "AccidentalAssignmentInIf"
 # Check for accidental assignment.  e.g.:   <<elseif $foo = "hello">>
@@ -75,6 +75,15 @@ $GREP -e "<<[a-zA-Z]\([^>\"]\|[^>]>[^>]\|\"[^\"]*\"\)* [a-zA-Z]\+ * =" -- src/*.
 $GREP -e "<<[a-zA-Z]* = *" -- src/*.tw | myprint "BadCommand"
 # Check for duplicate words, e.g. with with
 $GREP -e  " \(\b[a-zA-Z][a-zA-Z]\+\) \1\b " --and --not -e " her her " --and --not -e " you you " --and --not -e " that that " --and --not -e " in in " --and --not -e " is is " -- 'src/*' | myprint "Duplicate words"
+# Check for obsolete SugarCube macros
+$GREP -E "<<display|<<click|<<.*\.contains" -- src/*.tw | myprint "ObsoleteMacro" 
+# Check for double articles
+$GREP -E "\Wa an\W" -- src/*.tw | myprint "DoubleArticle"
+# Check for incorrect articles
+$GREP -i -E "\Wa (a|e|i|o|u)." -- src/*.tw | grep -i -vE "\Wa (un|eu|us|ut|on|ur|in)." | grep -i -vE "(&|<<s>>|UM)." | myprint "IncorrectArticle"
+$GREP -i -E "\Wan (b|c|d|f|g|j|k|l|m|n|p|q|r|s|t|v|w|x|y|z)\w." -- src/*.tw | grep -i -vE "[A-Z]{3}" | myprint "IncorrectArticle"
+# Check for $ sign mid-word
+$GREP -i "\w$\w" -- src/*.tw | myprint "VarSignMidWord"
 
 # Check that we do not have any variables that we use only once.   e.g.     $onlyUsedOnce
 # Ignore  *Nationalities
diff --git a/src/utility/raWidgets.tw b/src/utility/raWidgets.tw
index 8c05753fc8f785240a1ce2dce312b6b19c8b49c3..d15b9ec148728677b55ce71999f27094507d921b 100644
--- a/src/utility/raWidgets.tw
+++ b/src/utility/raWidgets.tw
@@ -3733,7 +3733,7 @@ check if a rule attribute, any one, is defined and otherwise skip everything.
 
 <<if (def _combinedRule.bellyAccessory) && (_combinedRule.bellyAccessory !== "no default setting")>>
 <<if ($args[0].bellyAccessory !== _combinedRule.bellyAccessory)>>
-	<<if visibleBelly($args[0]) && $fakeBellies.contains(_combinedRule.bellyAccessory)>>
+	<<if visibleBelly($args[0]) && $fakeBellies.includes(_combinedRule.bellyAccessory)>>
 		<br>$args[0].slaveName's natural belly is too big to properly wear an empathy belly.
 	<<else>>
 		<<set $args[0].bellyAccessory = _combinedRule.bellyAccessory>>