diff --git a/database/util/twoAnalysisSenseCleanup.js b/database/util/twoAnalysisSenseCleanup.js
new file mode 100644
index 0000000000..30b196790c
--- /dev/null
+++ b/database/util/twoAnalysisSenseCleanup.js
@@ -0,0 +1,138 @@
+[
+  {
+    // Match documents in the specified project that have 2 senses, one with a lone "en"-language gloss and the other with a lone "tpi"-language gloss
+    $match: {
+      projectId: "654a790a79341a70ce2e6627",
+      senses: { $size: 2 },
+      "senses.0.Glosses": { $size: 1 },
+      "senses.1.Glosses": { $size: 1 },
+      "senses.Glosses.Language": {
+        $all: ["en", "tpi"],
+      },
+    },
+  },
+  {
+    // Preserve the original document for later stages to use
+    $addFields: {
+      originalDocument: "$$ROOT",
+    },
+  },
+  {
+    // Identify and extract two senses ("to" and "from") for merging based on gloss languages
+    $addFields: {
+      toSense: {
+        $arrayElemAt: [
+          {
+            $filter: {
+              input: "$senses",
+              as: "sense",
+              cond: {
+                $eq: [
+                  {
+                    $arrayElemAt: ["$$sense.Glosses.Language", 0],
+                  },
+                  "en",
+                ],
+              },
+            },
+          },
+          0,
+        ],
+      },
+      fromSense: {
+        $arrayElemAt: [
+          {
+            $filter: {
+              input: "$senses",
+              as: "sense",
+              cond: {
+                $eq: [
+                  {
+                    $arrayElemAt: ["$$sense.Glosses.Language", 0],
+                  },
+                  "tpi",
+                ],
+              },
+            },
+          },
+          0,
+        ],
+      },
+    },
+  },
+  {
+    // Add fields to extract semantic domain GUIDs from both senses
+    $addFields: {
+      toSemDomGuids: "$toSense.SemanticDomains.guid",
+      fromSemDomGuids: "$fromSense.SemanticDomains.guid",
+    },
+  },
+  {
+    // Match documents where the semantic domains of one sense are a subset of the other
+    $match: {
+      $expr: {
+        $or: [
+          {
+            $setIsSubset: ["$toSemDomGuids", "$fromSemDomGuids"],
+          },
+          {
+            $setIsSubset: ["$fromSemDomGuids", "$toSemDomGuids"],
+          },
+        ],
+      },
+    },
+  },
+  {
+    // Update the original document's senses with a merge of the two senses
+    // Note: The part of speech / grammatical category of the "from" sense is lost
+    $addFields: {
+      "originalDocument.senses": {
+        $mergeObjects: [
+          "$toSense",
+          {
+            Definitions: {
+              $concatArrays: ["$toSense.Definitions", "$fromSense.Definitions"],
+            },
+            Glosses: {
+              $concatArrays: ["$toSense.Glosses", "$fromSense.Glosses"],
+            },
+            protectReasons: {
+              $concatArrays: [
+                "$toSense.protectReasons",
+                "$fromSense.protectReasons",
+              ],
+            },
+            SemanticDomains: {
+              $cond: {
+                if: {
+                  $gte: [
+                    { $size: "$toSemDomGuids" },
+                    { $size: "$fromSemDomGuids" },
+                  ],
+                },
+                then: "$toSense.SemanticDomains",
+                else: "$fromSense.SemanticDomains",
+              },
+            },
+          },
+        ],
+      },
+    },
+  },
+  {
+    // Replace the root of the document with the updated original document
+    $replaceRoot: {
+      newRoot: "$originalDocument",
+    },
+  },
+  {
+    // Merge the updated document back into the 'words' collection, updating where matched and discarding unmatched
+    // Note: Need to run this again into the "FrontierCollection".
+    $merge: {
+      into: "WordsCollection",
+      on: "_id",
+      whenMatched: "merge",
+      whenNotMatched: "discard",
+    },
+  },
+];
diff --git a/database/util/twoAnalysisSenseCleanup.sh b/database/util/twoAnalysisSenseCleanup.sh
new file mode 100755
index 0000000000..af06a52710
--- /dev/null
+++ b/database/util/twoAnalysisSenseCleanup.sh
@@ -0,0 +1,138 @@
+#!/usr/bin/env bash
+
+###############################################################
+# Script to merge senses from two different analysis languages
+###############################################################
+
+set -e
+
+usage () {
+  cat <<USAGE
+
+  Usage: $0 [options]
+    Find all words with exactly two senses, each with exactly one gloss in one of two given languages.
+    Merge those two senses into a single sense with two glosses, one in each language.
+    Note: If the sense with gloss in language B has a grammatical category, it will be lost in the merge.
+  Options:
+    -h, --help:
+          print this message
+    -A, --langA:
+          (required) one of the two languages
+    -B, --langB:
+          (required) one of the two languages
+    -p, --proj:
+          (required) project id
+    -d, --dry-run:
+          print commands instead of executing them
+    -v, --verbose:
+          print each line of code before it is executed
+USAGE
+}
+
+if [[ $# -eq 0 ]] ; then
+  usage
+  exit 0
+fi
+
+DRYRUN=0
+LANGA=
+LANGB=
+PROJ=
+while [[ $# -gt 0 ]] ; do
+  arg="$1"
+  shift
+
+  case ${arg} in
+    -h|--help)
+      usage
+      exit 0
+      ;;
+    -A|--langA)
+      LANGA=$1
+      shift
+      if [[ "${LANGA}" =~ [^A-Za-z\-] ]]; then
+        echo "The -A/--langA argument must be alphabetic (dashes allowed)"
+        exit 1
+      fi
+      ;;
+    -B|--langB)
+      LANGB=$1
+      shift
+      if [[ "${LANGB}" =~ [^A-Za-z\-] ]]; then
+        echo "The -B/--langB argument must be alphabetic (dashes allowed)"
+        exit 1
+      fi
+      ;;
+    -p|--proj)
+      PROJ=$1
+      shift
+      if [[ "${PROJ}" =~ [^0-9a-f] || ${#PROJ} != 24 ]]; then
+        echo "The -p/--proj argument must be a 24-character hexidecimal id"
+        exit 1
+      fi
+      ;;
+    -d|--dry-run)
+      DRYRUN=1
+      ;;
+    -v|--verbose)
+      set -x
+      ;;
+    *)
+      echo "Unrecognized argument: ${arg}"
+      usage
+      exit 1
+      ;;
+  esac
+done
+
+if [[ -z "${LANGA}" ]]; then
+  echo "The -A/--langA argument is required"
+  usage
+  exit 1
+fi
+if [[ -z "${LANGB}" ]]; then
+  echo "The -B/--langB argument is required"
+  usage
+  exit 1
+fi
+if [[ "${LANGA}" == "${LANGB}" ]]; then
+  echo "The -A/--langA and -B/--langB arguments must be different"
+  usage
+  exit 1
+fi
+if [[ -z "${PROJ}" ]]; then
+  echo "The -p/--proj argument is required"
+  usage
+  exit 1
+fi
+
+match1="{\$match:{projectId:\"$PROJ\",senses:{\$size:2},\"senses.0.Glosses\":{\$size:1},\"senses.1.Glosses\":{\$size:1},\"senses.Glosses.Language\":{\$all:[\"$LANGA\",\"$LANGB\"],},},},"
+addFields1="{\$addFields:{originalDocument:\"\$\$ROOT\",},},"
+fieldTo="toSense:{\$arrayElemAt:[{\$filter:{input:\"\$senses\",as:\"sense\",cond:{\$eq:[{\$arrayElemAt:[\"\$\$sense.Glosses.Language\",0],},\"$LANGA\",],},},},0,],},"
+fieldFrom="fromSense:{\$arrayElemAt:[{\$filter:{input:\"\$senses\",as:\"sense\",cond:{\$eq:[{\$arrayElemAt:[\"\$\$sense.Glosses.Language\",0],},\"$LANGB\",],},},},0,],},"
+addFields2="{\$addFields:{$fieldTo$fieldFrom},},"
+addFields3="{\$addFields:{toSemDomGuids:\"\$toSense.SemanticDomains.guid\",fromSemDomGuids:\"\$fromSense.SemanticDomains.guid\",},},"
+match2="{\$match:{\$expr:{\$or:[{\$setIsSubset:[\"\$toSemDomGuids\",\"\$fromSemDomGuids\"],},{\$setIsSubset:[\"\$fromSemDomGuids\",\"\$toSemDomGuids\"],},],},},},"
+fieldD="Definitions:{\$concatArrays:[\"\$toSense.Definitions\",\"\$fromSense.Definitions\"],},"
+fieldG="Glosses:{\$concatArrays:[\"\$toSense.Glosses\",\"\$fromSense.Glosses\"],},"
+fieldP="protectReasons:{\$concatArrays:[\"\$toSense.protectReasons\",\"\$fromSense.protectReasons\",],},"
+fieldS="SemanticDomains:{\$cond:{if:{\$gte:[{\$size:\"\$toSemDomGuids\"},{\$size:\"\$fromSemDomGuids\"},],},then:\"\$toSense.SemanticDomains\",else:\"\$fromSense.SemanticDomains\",},},"
+addFields4="{\$addFields:{\"originalDocument.senses\":{\$mergeObjects:[\"\$toSense\",{$fieldD$fieldG$fieldP$fieldS},],},},},"
+replaceRoot="{\$replaceRoot:{newRoot:\"\$originalDocument\",},},"
+pipeline=$match1$addFields1$addFields2$addFields3$match2$addFields4$replaceRoot
+
+mergeWords="{\$merge:{into:\"WordsCollection\",on:\"_id\",whenMatched:\"merge\",whenNotMatched:\"discard\",},},"
+cmd="mongosh CombineDatabase --eval 'db.FrontierCollection.aggregate([$pipeline$mergeWords])'"
+if [[ $DRYRUN -eq 1 ]] ; then
+  echo $cmd
+else
+  $cmd
+fi
+
+mergeFrontier="{\$merge:{into:\"FrontierCollection\",on:\"_id\",whenMatched:\"merge\",whenNotMatched:\"discard\",},},"
+cmd="mongosh CombineDatabase --eval 'db.FrontierCollection.aggregate([$pipeline$mergeFrontier])'"
+if [[ $DRYRUN -eq 1 ]] ; then
+  echo $cmd
+else
+  $cmd
+fi
diff --git a/maintenance/scripts/combine-clean-aws.sh b/maintenance/scripts/combine-clean-aws.sh
index dcc6b7758c..d70212c9e8 100755
--- a/maintenance/scripts/combine-clean-aws.sh
+++ b/maintenance/scripts/combine-clean-aws.sh
@@ -1,4 +1,4 @@
-#!/bin/bash
+#!/usr/bin/env bash
 
 ######################################################
 # Script to delete old backups from the AWS S3 bucket
@@ -6,7 +6,7 @@
 
 set -e
 
-usage() {
+usage () {
   cat <<USAGE
   Usage: $0 [options]
      Removes old Combine backups from the AWS S3 bucket
diff --git a/scripts/add_user_guide.sh b/scripts/add_user_guide.sh
index ebab20db3e..e857f5bd86 100644
--- a/scripts/add_user_guide.sh
+++ b/scripts/add_user_guide.sh
@@ -1,4 +1,4 @@
-#!/bin/bash
+#!/usr/bin/env bash
 
 ######################################################
 # Script to add translated User Guide files
@@ -7,7 +7,7 @@
 
 set -e
 
-usage() {
+usage () {
   cat <<USAGE
   Usage: $0 [options]
     Add translated User Guide files downloaded from Crowdin.
diff --git a/scripts/fetch_wordlist.sh b/scripts/fetch_wordlist.sh
index 1a0311459d..58603a80d4 100644
--- a/scripts/fetch_wordlist.sh
+++ b/scripts/fetch_wordlist.sh
@@ -1,4 +1,4 @@
-#!/bin/bash
+#!/usr/bin/env bash
 
 ######################################################
 # Script to fetch dictionary files from
@@ -8,7 +8,7 @@
 
 set -e
 
-usage() {
+usage () {
   cat <<USAGE
   Usage: $0 [options]
     Fetch dictionary files for specified language and convert to a wordlist