Index: openacs-4/packages/acs-templating/tcl/tab-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tab-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/tab-procs.tcl	29 Jul 2006 23:10:33 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/tab-procs.tcl	10 Jan 2007 21:22:12 -0000	1.5
@@ -152,7 +152,7 @@
 
   lappend code -template $template 
 
-  if { [string equal $properties(current_tab) $name] } {
+  if {$properties(current_tab) eq $name} {
     lappend code -current 1
   } else {
     lappend code -current 0
@@ -217,12 +217,12 @@
     upvar 0 \"$id:properties\" form_properties"
 
   # Change the default style if no style is specified
-  if { [string equal [ns_set iget $params style] ""] } {
+  if {[ns_set iget $params style] eq ""} {
     ns_set update $params style tabbed-dialog
   }
 
   # Render the template
-  if { [string equal [string trim $chunk] {}] } {
+  if {[string trim $chunk] eq {}} {
     # generate the form body dynamically if none specified.
     set style [ns_set iget $params style]
     if { [template::util::is_nil style] } {
@@ -257,12 +257,12 @@
     upvar 0 \"$id:properties\" form_properties"
 
   # Change the default style if no style is specified
-  if { [string equal [ns_set iget $params style] ""] } {
+  if {[ns_set iget $params style] eq ""} {
     ns_set update $params style tabbed-dialog
   }
 
   # Render the template
-  if { [string equal [string trim $chunk] {}] } {
+  if {[string trim $chunk] eq {}} {
     # generate the form body dynamically if none specified.
     set style [ns_set iget $params style]
     if { [template::util::is_nil style] } {