Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.67 -r1.189.2.68
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Oct 2020 08:09:51 -0000	1.189.2.67
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Oct 2020 16:50:31 -0000	1.189.2.68
@@ -152,19 +152,12 @@
 
     @param destination must be the name of a valid directory to contain decompressed files
 } {
-    set unzip [util::which unzip]
-    if {$unzip eq ""} {
+    set unzipCmd [util::which unzip]
+    if {$unzipCmd eq ""} {
         error "unzip command not found on the system."
     }
-    set cmd [list exec $unzip]
-    if {$overwrite_p} {
-        lappend cmd -o
-    } else {
-        # -n means we don't overwrite existing files
-        lappend cmd -n
-    }
-    lappend cmd $source -d $destination
-    {*}$cmd
+    # -n means we don't overwrite existing files
+    exec $unzipCmd [expr {$overwrite_p ? "-o" : "-n"}] $source -d $destination
 }
 
 # Let's define the nsv arrays out here, so we can call nsv_exists
@@ -1003,7 +996,7 @@
     {-override_headers {}}
     {-constants ""}
 } {
-    
+
     This processes a comma separated set of objects, taking the CSV
     and calling package_instantiate_object for each one.