Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	1 Sep 2002 02:24:57 -0000	1.7
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	5 Jun 2003 13:30:20 -0000	1.7.2.1
@@ -151,11 +151,16 @@
     }
 
     nil {
-      # substitute array variables
-      regsub {^"@([a-zA-z0-9_]+)\.([a-zA-z0-9_]+)@"$} $arg1 {\1(\2)} arg1
-      # substitute regular variables
-      regsub {^"@([a-zA-z0-9_:]+)@"$} $arg1 {\1} arg1
-      append condition "\[template::util::is_nil $arg1\]"
+      if { [string first @ $arg1] == -1 } {
+        # We're assuming this is a static string, not a variable
+        append condition "\[empty_string_p $arg1\]"
+      } else {
+        # substitute array variables
+        regsub {^"@([a-zA-z0-9_]+)\.([a-zA-z0-9_]+)@"$} $arg1 {\1(\2)} arg1
+        # substitute regular variables
+        regsub {^"@([a-zA-z0-9_:]+)@"$} $arg1 {\1} arg1
+        append condition "\[template::util::is_nil $arg1\]"
+      }
       set next $i
     }