diff --git a/changes/33.2.3.md b/changes/33.2.3.md
index 5979033f9..c73d279a9 100644
--- a/changes/33.2.3.md
+++ b/changes/33.2.3.md
@@ -4,6 +4,7 @@
   - TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279D`).
   - HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279E`).
   - DASH WITH UPTURN (`U+2E43`).
+  - LATIN SMALL LETTER SCRIPT R WITH RING (`U+AB4C`).
   - MATHEMATICAL DOUBLE-STRUCK CAPITAL B (`U+1D539`).
 * Add Characters:
   - LEFTWARDS DOUBLE DASH ARROW (`U+290C`) ... RIGHTWARDS TRIPLE DASH ARROW (`U+290F`).
diff --git a/packages/font-glyphs/src/letter/latin-ext/script-r.ptl b/packages/font-glyphs/src/letter/latin-ext/script-r.ptl
index 336e5c48d..1bec096c9 100644
--- a/packages/font-glyphs/src/letter/latin-ext/script-r.ptl
+++ b/packages/font-glyphs/src/letter/latin-ext/script-r.ptl
@@ -45,7 +45,7 @@ glyph-block Letter-Latin-Script-R : begin
 		include : df.markSet.e
 		local subDf : DivFrame (0.75 * para.advanceScaleM) 2
 
-		include : ScriptRShape XH SB [xBarRight subDf] true subDf.mvs
+		include : ScriptRShape XH subDf.leftSB [xBarRight subDf] true subDf.mvs
 		eject-contour 'strokeR'
 
 		local swBowl : [AdviceStroke 3] * (subDf.mvs / Stroke)
@@ -53,16 +53,16 @@ glyph-block Letter-Latin-Script-R : begin
 
 		local yBar : 0.5 * XH + 0.5 * swBowl
 
-		local ada : ArchDepthAOf SmallArchDepth : df.width - ([xBarRight subDf] - subDf.leftSB) + [HSwToV subDf.mvs]
-		local adb : ArchDepthBOf SmallArchDepth : df.width - ([xBarRight subDf] - subDf.leftSB) + [HSwToV subDf.mvs]
+		local ada : ArchDepthAOf SmallArchDepth : df.width - (subDf.rightSB - subDf.leftSB) + [HSwToV subDf.mvs]
+		local adb : ArchDepthBOf SmallArchDepth : df.width - (subDf.rightSB - subDf.leftSB) + [HSwToV subDf.mvs]
 
 		include : dispiro
 			flat ([xBarRight subDf] - [HSwToV subDf.mvs]) (XH - 0.5 * subDf.mvs) [widths.lhs.heading subDf.mvs Downward]
 			curl ([xBarRight subDf] - [HSwToV subDf.mvs]) [YSmoothMidL yBar 0 ada adb]
 			arch.lhs 0 (sw -- subDf.mvs) (swAfter -- swBowl)
-			g4 (df.rightSB - OX) [YSmoothMidR yBar 0 ada adb] [widths.lhs swBowl]
+			g4 (df.rightSB - (subDf.rightSB - [xBarRight subDf]) - OX) [YSmoothMidR yBar 0 ada adb] [widths.lhs swBowl]
 			arch.lhs yBar (sw -- swBowl) (swAfter -- fineBowl)
 			g4.down.end ([xBarRight subDf] - [HSwToV fineBowl]) [YSmoothMidL yBar 0 ada adb] [widths.lhs.heading fineBowl Downward]
 
 		include : LeaningAnchor.Above.VBar.m subDf.middle
-		include : LeaningAnchor.Below.VBar.m [mix ([xBarRight subDf] - [HSwToV subDf.mvs]) df.rightSB 0.5]
+		include : LeaningAnchor.Below.VBar.r [xBarRight subDf] subDf.mvs