diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 81a1bd8722..3d316342f8 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -278,7 +278,7 @@ proc testgrid {args} {
     set tests_list {}
 
     # iterate by all script paths
-    foreach dir [_split_path $env(CSF_TestScriptsPath)] {
+    foreach dir [lsort -unique [_split_path $env(CSF_TestScriptsPath)]] {
 	# protection against empty paths
 	set dir [string trim $dir]
 	if { $dir == "" } { continue }