Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -N -r1.43.2.14 -r1.43.2.15
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	29 Aug 2022 11:00:26 -0000	1.43.2.14
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	29 Aug 2022 13:00:39 -0000	1.43.2.15
@@ -70,18 +70,9 @@
     @return 1 if the variable either not exist or is an empty string.  0 if
     the variable is either an array reference or a nonempty scalar.
 } {
-
     upvar $ref var
 
-    # check for an array as well
-    if { [array exists var] } { return 0 }
-
-    if { [info exists var] && $var ne {} } {
-        set result 0
-    } else {
-        set result 1
-    }
-    return $result
+    return [expr { ![array exists var] && (![info exists var] || $var eq "") }]
 }
 
 ad_proc -public template::util::is_unique { table columns values } {