Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	26 Nov 2008 23:11:54 -0000	1.38
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	12 Dec 2008 13:30:02 -0000	1.39
@@ -685,7 +685,10 @@
 
   TABLE::Field instproc renderSortLabels {} {
     set field [my set orderby]
-    upvar #[template::adp_level] orderby orderby
+    set lvl [template::adp_level]
+    if {$lvl ne ""} {
+      upvar #$lvl orderby orderby
+    }
     if {![info exists orderby]} {set orderby ""}
     set new_orderby $orderby
     if {$orderby eq "$field,desc"} {