diff --git a/tests/bugs/modalg_5/bug23952_1 b/tests/bugs/modalg_5/bug23952_1
deleted file mode 100644
index 4007be367f..0000000000
--- a/tests/bugs/modalg_5/bug23952_1
+++ /dev/null
@@ -1,19 +0,0 @@
-puts "================"
-puts "OCC23952"
-puts "================"
-puts ""
-###########################################################################################
-# Improving thread-safety of intersections, approximations and other modeling algorithms
-###########################################################################################
-
-pload QAcommands
-restore [locate_data_file bug23952_trim-torus.draw] res
-
-set NbUPoles 18
-set info [OCC23952sweep $NbUPoles res]
-
-if { [regexp "theTargetNbUPoles: OK" $info] != 1 } {
-    puts "Error : Number of UPoles is incorrect"
-} else {
-    puts "OK: Number of UPoles is correct"
-}
diff --git a/tests/bugs/modalg_5/bug23952_2 b/tests/bugs/modalg_5/bug23952_2
deleted file mode 100644
index 85e5958ae2..0000000000
--- a/tests/bugs/modalg_5/bug23952_2
+++ /dev/null
@@ -1,21 +0,0 @@
-puts "================"
-puts "OCC23952"
-puts "================"
-puts ""
-###########################################################################################
-# Improving thread-safety of intersections, approximations and other modeling algorithms
-###########################################################################################
-
-pload QAcommands
-restore [locate_data_file bug23952_s1.draw] a
-restore [locate_data_file bug23952_s2.draw] b
-
-set NbLines 5
-set info [OCC23952intersect $NbLines a b]
-
-if { [regexp "theNbSol: OK" $info] != 1 } {
-    puts "Error : Number of intersections is incorrect"
-} else {
-    puts "OK: Number of intersections is correct"
-}
-
diff --git a/tests/bugs/modalg_5/bug23985 b/tests/bugs/modalg_5/bug23985
index 9c80efd80b..c284e67682 100755
--- a/tests/bugs/modalg_5/bug23985
+++ b/tests/bugs/modalg_5/bug23985
@@ -15,10 +15,10 @@ bsection result b1 b2
 
 set expl [explode result]
 
-set length [llength $expl]
-puts "Result is $length section edge"
+set ll [llength $expl]
+puts "Result is $ll section edge"
 
-if {$length > 0} {
+if {$ll > 0} {
     puts "${BugNumber} OK"
 } else {
     puts "Faulty ${BugNumber}"