--- mkzip.tcl.orig	2019-03-08 20:26:58.610004578 +0100
+++ mkzip.tcl	2019-03-08 20:27:52.542600740 +0100
@@ -64,7 +64,7 @@
 proc ::zipfile::mkzip::walk {base {excludes ""} {match *} {path {}}} {
     set result {}
     set imatch [file join $path $match]
-    set files [glob -nocomplain -tails -types f -directory $base $imatch]
+    set files [glob -nocomplain -tails -types f -directory $base -- $imatch]
     foreach file $files {
         set excluded 0
         foreach glob $excludes {
@@ -75,7 +75,7 @@
         }
         if {!$excluded} {lappend result $file}
     }
-    foreach dir [glob -nocomplain -tails -types d -directory $base $imatch] {
+    foreach dir [glob -nocomplain -tails -types d -directory $base -- $imatch] {
         set subdir [walk $base $excludes $match $dir]
         if {[llength $subdir]>0} {
             set result [concat $result [list $dir] $subdir]
