diff --git a/library/globrecur.tcl b/library/globrecur.tcl
index c124462f..02a2ebb2 100644
--- a/library/globrecur.tcl
+++ b/library/globrecur.tcl
@@ -76,7 +76,7 @@ proc for_recursive_glob {var dirlist globlist cmd {depth 1}} {
             return -code $code $result
         }
 
-        foreach file [lsort [readdir $dir]] {
+        foreach file [readdir $dir] {
             set file [file join $dir $file]
             if [file isdirectory $file] {
                 set fileTail [file tail $file]