1 files changed, 2 insertions(+), 2 deletions(-)

M ntalk.tcl

@@ 566,7 566,7 @@ proc _locatecscript {} {
 	}
 
 	# try picking a default
-	set servlist [lsort [glob -directory $scriptdir "*.tcl"]]
+	set servlist [lsort [glob -nocomplain -directory $scriptdir "**.tcl"]]
 	if {[llength $servlist] > 0} {
 		return [lindex $servlist 0]
 	}


@@ 586,7 586,7 @@ proc regenservlist {} {
 		.menu.server.rm delete 0 end
 	}
 	
-	foreach filename [lsort -decreasing [glob -directory $scriptdir *.tcl]] {
+	foreach filename [lsort -decreasing [glob -nocomplain -directory $scriptdir **.tcl]] {
 		set slug [file tail [file rootname $filename]]
 
 		if {$filename == $scriptpath} {