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.15 -r1.16
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	10 Jan 2007 21:22:12 -0000	1.15
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	18 Nov 2012 18:47:20 -0000	1.16
@@ -134,11 +134,11 @@
       set next [expr {$i + 1}]
     }
     eq { 
-      append condition "\[string equal $arg1 \"[lindex $args $i]\"\]" 
+      append condition "$arg1 eq \"[lindex $args $i]\"" 
       set next [expr {$i + 1}]
     }
     ne { 
-      append condition "! \[string equal $arg1 \"[lindex $args $i]\"\]" 
+      append condition "$arg1 ne \"[lindex $args $i]\"" 
       set next [expr {$i + 1}]
     }
 
@@ -158,7 +158,7 @@
     nil {
       if { [string first @ $arg1] == -1 } {
         # We're assuming this is a static string, not a variable
-        append condition "\[empty_string_p $arg1\]"
+        append condition "$arg1 eq {}"
       } else {
         # substitute array variables
         if {! ( [regsub {^"@([a-zA-Z0-9_]+)\.([a-zA-Z0-9_.]+)@"$} $arg1 {\1(\2)} arg1]