From 690f2c283978a046e78664a1070c5c0bf5ddf67f Mon Sep 17 00:00:00 2001
From: kjnash <k.j.nash@usa.net>
Date: Sat, 18 Jul 2020 13:18:48 +0000
Subject: Bugfix argument combination -- and -directory in ::safe::AliasGlob.

---
 library/safe.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/library/safe.tcl b/library/safe.tcl
index 843255a..410a5c1 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -815,7 +815,11 @@ proc ::safe::AliasGlob {slave args} {
 	    if {$got(-nocomplain)} return
 	    return -code error "permission denied"
 	}
-	lappend cmd -directory $dir
+	if {$got(--)} {
+	    set cmd [linsert $cmd end-1 -directory $dir]
+	} else {
+	    lappend cmd -directory $dir
+	}
     }
 
     # Apply the -join semantics ourselves
-- 
cgit v0.12