@@ -20,19 +20,19 @@
 
 # Index all packages
 proc teapot_index {srcdir} {
 	array set pkginfo [list]
 
-	foreach pkgdir [glob -directory $srcdir -type d */*/*] {
+	foreach pkgdir [glob -nocomplain -directory $srcdir -type d */*/*] {
 		unset -nocomplain currpkginfo
 		set currpkginfo(pkgdir) $pkgdir
 
 		set teapot [file join $pkgdir teapot.txt]
 
 		set multifile 1
 		if {![file exists $teapot]} {
-			set files [glob -directory $pkgdir *]
+			set files [glob -nocomplain -directory $pkgdir *]
 			if {[llength $files] == 1} {
 				set teapot [lindex $files 0]
 				set multifile 0
 			} else {
 				continue
@@ -325,11 +325,11 @@
 				exec zip -r $extfile . -x build.log
 			} err]} {
 				puts "Error while zipping: $err"
 			}
 		} else {
-			set origfile [lindex [glob -directory $pkgdir *] 0]
+			set origfile [lindex [glob -nocomplain -directory $pkgdir *] 0]
 
 			file copy -force -- $origfile $extfile
 		}
 
 		file delete -- $regfile