Index: openacs-4/packages/acs-tcl/lib/actions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/actions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/lib/actions.tcl	20 Mar 2005 00:47:07 -0000	1.1
+++ openacs-4/packages/acs-tcl/lib/actions.tcl	10 Jan 2007 21:22:11 -0000	1.2
@@ -15,11 +15,11 @@
 
     foreach action $action_list {
 
-        if {[string equal [lindex $action 0] "LINK"]} {
+        if {[lindex $action 0] eq "LINK"} {
             foreach {type stub text title long} $action {break}
             multirow append actions $type "$base_url$stub" $text $title $long
 
-        } elseif {[string equal [lindex $action 0] "SECTION"]} {
+        } elseif {[lindex $action 0] eq "SECTION"} {
             foreach {type title long} $action {break}
             multirow append actions $type {} {} $title $long