diff --git a/changes/3.0.0-alpha.5.md b/changes/3.0.0-alpha.5.md
index 885e8ba05..1f7a4b068 100644
--- a/changes/3.0.0-alpha.5.md
+++ b/changes/3.0.0-alpha.5.md
@@ -1,3 +1,4 @@
-* Add variant selector for `f`: `v-f-serifed`
-* Add variant selectors for `r`: `v-r-standard`, `v-r-serifed`, `v-r-top-serifed`
+* Add variant selector for `f`: `v-f-serifed`.
+* Add variant selectors for `r`: `v-r-standard`, `v-r-serifed`, `v-r-top-serifed`.
 * Fix various `r`-related glyphs' shape.
+* Fix shape of curly `k` under Slab shape.
\ No newline at end of file
diff --git a/glyphs/letters-unified-basic.ptl b/glyphs/letters-unified-basic.ptl
index 12f3df229..4db124fe2 100644
--- a/glyphs/letters-unified-basic.ptl
+++ b/glyphs/letters-unified-basic.ptl
@@ -1471,6 +1471,7 @@ export : define [apply] : begin
 	do "k and related ============================================================================"
 		local [KBalance straightBar] : if straightBar [if SLAB (WIDTH / 16) (WIDTH / 32)] 0
 		local [KBalanceRight straightBar] : if straightBar [if SLAB (-WIDTH / 32) (WIDTH / 32)] 0
+		local [KBalanceRightCursive straightBar] : if straightBar [if SLAB (WIDTH / 16) (WIDTH / 32)] 0
 		define [KLegShape top straightBar] : glyph-construction
 			local turn (top * 0.99)
 			local fine : adviceBlackness 3.5
@@ -1522,9 +1523,9 @@ export : define [apply] : begin
 				include : RightwardTopSerif topSerifX top (SIDEJUT + HALFSTROKE * 0.5 * HVCONTRAST)
 				include : RightwardBottomSerif bottomSerifX 0 SIDEJUT
 
-		define [KCurlyShape top straightBar] : glyph-construction
+		define [KCurlyLoopAndLegShape top straightBar] : glyph-construction
 			define kshLeft : SB + [KBalance straightBar]
-			define kshRight : RIGHTSB + [KBalanceRight straightBar] + 0.2 * STROKE
+			define kshRight : RIGHTSB + [KBalanceRightCursive straightBar] + 0.2 * STROKE
 
 			define Ok 0
 			define arcFine SHOULDERFINE
@@ -1612,9 +1613,10 @@ export : define [apply] : begin
 				if (!para.isItalic) : begin
 					include : CenterBottomSerif (SB + [KBalance straightBar] + HALFSTROKE * HVCONTRAST) 0 JUT
 					tag-contour 'serifLB'
+
 		define [LowerKCursiveShape straightBar] : glyph-construction
 			include : VBarLeft (SB + [KBalance straightBar]) 0 CAP
-			include : KCurlyShape XH straightBar
+			include : KCurlyLoopAndLegShape XH straightBar
 			if SLAB : begin
 				include : LeftwardTopSerif (SB + [KBalance straightBar]) CAP SIDEJUT