diff --git a/font-src/glyphs/letter/latin-ext/thorn.ptl b/font-src/glyphs/letter/latin-ext/thorn.ptl
index 5ad3e6e2f..8115fe329 100644
--- a/font-src/glyphs/letter/latin-ext/thorn.ptl
+++ b/font-src/glyphs/letter/latin-ext/thorn.ptl
@@ -12,9 +12,9 @@ glyph-block Letter-Latin-Thorn : begin
 	glyph-block-import Letter-Latin-Lower-P
 
 	define xThornLeftStroke : SB * 1.25
-	define yThornBowlBot : CAP * 0.19 + [if SLAB (Stroke * 0.375) 0]
+	define yThornBowlBot : CAP * 0.25 + [if SLAB (Stroke * 0.125) 0]
 	define [ThornShape yBowlBot] : glyph-proc
-		local yBowlTop : CAP - yBowlBot
+		local yBowlTop : CAP - 0.7 * yBowlBot + [if SLAB (-0.125) 0.25] * Stroke
 
 		local turn : mix yBowlTop yBowlBot (ArchDepthB / (ArchDepthA + ArchDepthB))
 		local turnRadius : (yBowlTop - yBowlBot) / 2
diff --git a/utility/generate-samples/templates/stylistic-set.mjs b/utility/generate-samples/templates/stylistic-set.mjs
index 9faf6f07f..947821173 100644
--- a/utility/generate-samples/templates/stylistic-set.mjs
+++ b/utility/generate-samples/templates/stylistic-set.mjs
@@ -3,7 +3,7 @@ import * as themes from "../themes/index.mjs";
 // prettier-ignore
 const ssStrings = [
 	["ABC.DEF.GHI.JKL.MNO.PQRS.TUV.WXYZ", "abc.def.ghi.jkl.mno.pqrs.tuv.wxyz"],
-	["¢ ſß ΓΛΔ αδιλμξ КУЗЯЖэльфязычникж", "float il1[]={1-2/3.4,5+6=7/8%90};"],
+	["¢þſßðΓΛΔ αδιλμξ КУЗЯЖэльфязычникж", "float il1[]={1-2/3.4,5+6=7/8%90};"],
 	["1234567890 ,._-+= >< ¯-¬_ >~–÷+×<", "{*}[]()<>`+-=$/#_%^@\\&|~?'\" !,.;:"],
 	["!iIlL17|¦ coO08BbDQ $5SZ2zsz 96G&", [..."dbqp E3 g9qCGQ vvwVVW ", "<=", " ", "!="," ","==", " ", ">="]]
 ];