diff --git a/tests/bugs/modalg_5/bug22614_1 b/tests/bugs/modalg_5/bug22614_1
new file mode 100644
index 0000000000..2ac59c2a57
--- /dev/null
+++ b/tests/bugs/modalg_5/bug22614_1
@@ -0,0 +1,30 @@
+puts "========================"
+puts "OCC22614"
+puts "========================" 
+puts ""
+#######################################################################
+# Scaling fails with linear (p-)curves
+#######################################################################
+
+pcylinder p 10 50
+
+explode p f
+
+# p_1 is a cylindrical face
+tscale p_1 0 0 0 0.001
+
+renamevar p_1 result
+
+set square 0.00314159
+
+set nb_v_good 2
+set nb_e_good 3
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good  0
+set nb_shape_good 7
+
+set 2dviewer 1
diff --git a/tests/bugs/modalg_5/bug22614_2 b/tests/bugs/modalg_5/bug22614_2
new file mode 100644
index 0000000000..3943a31728
--- /dev/null
+++ b/tests/bugs/modalg_5/bug22614_2
@@ -0,0 +1,30 @@
+puts "========================"
+puts "OCC22614"
+puts "========================" 
+puts ""
+#######################################################################
+# Scaling fails with linear (p-)curves
+#######################################################################
+
+pcylinder p 10 50
+
+explode p f
+
+# p_2 is top planar face
+tscale p_2 0 0 0 0.001
+
+renamevar p_2 result
+
+set square 0.000314159
+
+set nb_v_good 1
+set nb_e_good 1
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good  0
+set nb_shape_good 4
+
+set 2dviewer 1
diff --git a/tests/bugs/modalg_5/bug22614_3 b/tests/bugs/modalg_5/bug22614_3
new file mode 100644
index 0000000000..d63e72faae
--- /dev/null
+++ b/tests/bugs/modalg_5/bug22614_3
@@ -0,0 +1,29 @@
+puts "========================"
+puts "OCC22614"
+puts "========================" 
+puts ""
+#######################################################################
+# Scaling fails with linear (p-)curves
+#######################################################################
+
+cylinder c 50
+
+mkface f c 0 5 0 10
+
+tscale f 0 0 0 0.001
+
+renamevar f result
+
+set square 0.0025
+
+set nb_v_good 4
+set nb_e_good 4
+set nb_w_good 1
+set nb_f_good 1
+set nb_sh_good 0
+set nb_sol_good 0
+set nb_compsol_good 0
+set nb_compound_good  0
+set nb_shape_good 10
+
+set 2dviewer 1