diff --git a/glyphs/symbol-punctuation.ptl b/glyphs/symbol-punctuation.ptl
index 2b37751..f185fd1 100644
--- a/glyphs/symbol-punctuation.ptl
+++ b/glyphs/symbol-punctuation.ptl
@@ -392,9 +392,9 @@ export : define [apply] : begin
 	sketch # at.petite
 		set-width WIDTH
 
-		local top CAP
-		local obot (-XH / 8)
-		local otop [mix obot top 0.7]
+		local top operTop
+		local obot operBot
+		local otop [mix obot top 0.675]
 
 		local sw : adviceBlackness 3.5
 		local m1 : [mix (SB + sw) (RIGHTSB - sw) 0.53] + sw / 2
@@ -406,18 +406,22 @@ export : define [apply] : begin
 		local shrink 0.6
 
 		include : dispiro
-			widths.lhs sw
-			flat m1 (otop - O) [heading LEFTWARD]
-			curl (m2 - CORRECTION_OMIDX * sw) (otop - O)
+			straight.up.start (m1 - (sw * (1 - shrink) * HVCONTRAST)) (otop - smb) [widths.heading (sw * shrink) 0 UPWARD]
+			arcvh
+			g4 (m2 - sw * TANSLANT) (otop - O) [widths.heading sw 0 LEFTWARD]
 			archv
 			flat SB (otop - sma)
 			curl SB (obot + smb)
 			arcvh
-			g4 (m2 + CORRECTION_OMIDX * sw) (obot+ O)
+			g4 (m2 - sw * TANSLANT) (obot + O) [heading RIGHTWARD]
 			archv
 			straight.up.end (m1 - (sw * (1 - shrink) * HVCONTRAST)) (obot + sma) [widths.heading (sw * shrink) 0 UPWARD]
 		
-		include : VBarRight m1 (otop - O) (obot + sma) sw
+		include : dispiro
+			widths.lhs sw
+			corner m1 (obot + sma) [heading UPWARD]
+			corner m1 (otop - smb) [heading UPWARD]
+			corner m1 otop [widths.heading (sw * shrink) 0 UPWARD]
 		
 		include : dispiro
 			widths.lhs (sw * shrink)