diff --git a/tests/bugs/modalg_5/bug24809 b/tests/bugs/modalg_5/bug24809
new file mode 100644
index 0000000000..444147a070
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24809
@@ -0,0 +1,18 @@
+puts "========="
+puts "OCC24809"
+puts "========="
+puts ""
+##############################################################################
+# Exception is raised during perform of "bfillds" command on attached shape
+##############################################################################
+
+restore [locate_data_file bug24809_test3.brep] b
+
+bclearobjects
+bcleartools
+set shapes [explode b f]
+set nbs [llength $shapes]
+for {set i 1} {$i <= $nbs} {incr i} {
+  baddobjects b_$i
+}
+bfillds -s