Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.20.8.7 -r1.20.8.8
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	29 Sep 2013 19:23:18 -0000	1.20.8.7
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	10 Oct 2013 20:44:08 -0000	1.20.8.8
@@ -517,8 +517,8 @@
     if {$columns eq ""} {
         for {set i 0} {$i < [llength $datadef]} {incr i} {
             if {$sortable eq "all" 
-                || ($sortable eq "t" && [lindex [lindex $datadef $i] 2] != "no_sort")
-                || ($sortable eq "f" && [lindex [lindex $datadef $i] 2] == "no_sort")
+                || ($sortable == "t" && [lindex [lindex $datadef $i] 2] != "no_sort")
+                || ($sortable == "f" && [lindex [lindex $datadef $i] 2] == "no_sort")
             } {
                 lappend column_list $i
             } 
@@ -527,8 +527,8 @@
         set colnames {}
         foreach col $datadef { 
             if {$sortable eq "all" 
-                || ($sortable eq "t" && [lindex $col 2] ne "no_sort")
-                || ($sortable eq "f" && [lindex $col 2] eq "no_sort")
+                || ($sortable == "t" && [lindex $col 2] ne "no_sort")
+                || ($sortable == "f" && [lindex $col 2] eq "no_sort")
             } {
                 lappend colnames [lindex $col 0]
             } else {