diff --git a/changes/33.1.1.md b/changes/33.1.1.md
new file mode 100644
index 000000000..ae12113b8
--- /dev/null
+++ b/changes/33.1.1.md
@@ -0,0 +1,2 @@
+* Refine shape of the following characters:
+  - LATIN CAPITAL LETTER AU (`U+A736`).
diff --git a/packages/font-glyphs/src/letter/latin-ext/upper-aa-ao.ptl b/packages/font-glyphs/src/letter/latin-ext/upper-aa-ao.ptl
index a8040f023..1fc5214b5 100644
--- a/packages/font-glyphs/src/letter/latin-ext/upper-aa-ao.ptl
+++ b/packages/font-glyphs/src/letter/latin-ext/upper-aa-ao.ptl
@@ -107,11 +107,14 @@ glyph-block Letter-Latin-Upper-AA-AO : begin
 				include : difference [refer-glyph right] [refer-glyph leftMask]
 
 	do "U subglyphs"
-		glyph-block-import Letter-Latin-U : CapitalUConfig
-		foreach { suffix { Base {Slabs fLTSlab} } } [Object.entries CapitalUConfig] : do
+		glyph-block-import Letter-Latin-U : UShapeGroup CapitalUConfigT
+
+		define df : DivFrame para.advanceScaleMM 3.5
+		define { subDf shift } : SubDfAndShift 1 df
+		define sg : UShapeGroup subDf.archDepthA subDf.archDepthB
+
+		foreach { suffix { Base {Slabs fLTSlab} } } [Object.entries : CapitalUConfigT sg] : do
 			create-glyph "AU/Right.\(suffix)" : glyph-proc
-				define df : DivFrame para.advanceScaleMM 3.5
-				local { subDf shift } : SubDfAndShift 1 df
 				include : with-transform [ApparentTranslate shift 0]
 					union [Base subDf CAP df.mvs] [Slabs subDf CAP df.mvs]
 
diff --git a/packages/font-glyphs/src/letter/latin/u.ptl b/packages/font-glyphs/src/letter/latin/u.ptl
index b89ddc556..7078f1913 100644
--- a/packages/font-glyphs/src/letter/latin/u.ptl
+++ b/packages/font-glyphs/src/letter/latin/u.ptl
@@ -149,13 +149,13 @@ glyph-block Letter-Latin-U : begin
 			local sf : SerifFrame.fromDf df top 0 (swSerif -- _sw)
 			return : composite-proc sf.lt.full sf.rt.full
 
-	glyph-block-export CapitalUConfig
-	define CapitalUConfig : SuffixCfg.weave
+	glyph-block-export CapitalUConfigT
+	define [CapitalUConfigT shapeGroup] : SuffixCfg.weave
 		object # body
-			toothed           UUpper.Toothed
-			tailed            UUpper.Tailed
-			toothlessCorner   UUpper.ToothlessCorner
-			toothlessRounded  UUpper.ToothlessRounded
+			toothed           shapeGroup.Toothed
+			tailed            shapeGroup.Tailed
+			toothlessCorner   shapeGroup.ToothlessCorner
+			toothlessRounded  shapeGroup.ToothlessRounded
 		function [body] : object # serifs
 			serifless               { no-shape                false }
 			bottomRightSerifed      { USerifs.BottomRight     false }
@@ -168,7 +168,7 @@ glyph-block Letter-Latin-U : begin
 				[Just 'tailed']     { USerifs.Tailed          true  }
 				__                  { USerifs.Toothless       true  }
 
-	foreach { suffix { Base {Slabs fLTSlab} } } [Object.entries CapitalUConfig] : do
+	foreach { suffix { Base {Slabs fLTSlab} } } [Object.entries : CapitalUConfigT UUpper] : do
 		create-glyph "U.\(suffix)" : glyph-proc
 			local df : DivFrame 1
 			include : MarkSet.capital