diff --git a/font-src/glyphs/symbol/arrow.ptl b/font-src/glyphs/symbol/arrow.ptl
index a5db7b46b..6717d11af 100644
--- a/font-src/glyphs/symbol/arrow.ptl
+++ b/font-src/glyphs/symbol/arrow.ptl
@@ -373,6 +373,7 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
 		MkArrow ArrowShape [MangleName 'arrowDownLeft']   [MangleUnicode 0x2199] arrowDiagRSB arrowDiagTop arrowDiagSB arrowDiagBot
 
 		MkArrow ArrowShape [MangleName 'arrowRightCompact']  null arrowSB SymbolMid arrowRSB SymbolMid nothing bendArrowHeadSize
+		MkArrow ArrowShape [MangleName 'arrowLeftCompact']   null arrowRSB SymbolMid arrowSB SymbolMid nothing bendArrowHeadSize
 
 		# These arrows are always wide. In force-monospace variants they will be deleted
 		if (MosaicWidthScalar > 1 && !para.forceMonospace) : do
@@ -663,6 +664,8 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
 		define dasw doubleArrowStemWidth
 		MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowLeft']    [MangleUnicode 0x21DA] arrowRSB SymbolMid arrowSB SymbolMid
 		MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowRight']   [MangleUnicode 0x21DB] arrowSB SymbolMid arrowRSB SymbolMid
+		MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowUp']      [MangleUnicode 0x290A] arrowMidX arrowBot arrowMidX arrowTop
+		MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowDown']    [MangleUnicode 0x290B] arrowMidX arrowTop arrowMidX arrowBot
 
 	do "Barred Arrows"
 		MkArrow ArrowShape [MangleName 'arrowLeftK']    null arrowRSB SymbolMid (arrowSB + fine) SymbolMid
@@ -809,6 +812,12 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
 			include : WithTransform [ApparentTranslate 0 (+distance)] : refer-glyph : MangleName 'arrowRightCompact'
 			include : refer-glyph : MangleName 'arrowRightCompact'
 			include : WithTransform [ApparentTranslate 0 (-distance)] : refer-glyph : MangleName 'arrowRightCompact'
+		create-glyph [MangleName 'uni2B31'] [MangleUnicode 0x2B31] : glyph-proc
+			set-width MosaicWidth
+			local distance : bendArrowHeadSize * 2 - arrowSw
+			include : WithTransform [ApparentTranslate 0 (+distance)] : refer-glyph : MangleName 'arrowLeftCompact'
+			include : refer-glyph : MangleName 'arrowLeftCompact'
+			include : WithTransform [ApparentTranslate 0 (-distance)] : refer-glyph : MangleName 'arrowLeftCompact'
 
 	do "Zig zag"
 		create-glyph [MangleName 'zigZagArrow'] [MangleUnicode 0x21AF] : glyph-proc