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 -N -r1.70.2.30 -r1.70.2.31 --- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 17 Feb 2022 13:19:04 -0000 1.70.2.30 +++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 8 Mar 2022 11:04:16 -0000 1.70.2.31 @@ -822,7 +822,11 @@ # adp-level, which is less robust and warn about this usage. # set ordered_composite [${:__parent} info parent] - if {[::nsf::is object $ordered_composite] && [$ordered_composite hasclass ::xo::OrderedComposite]} { + if {[::nsf::is object $ordered_composite] && + [$ordered_composite hasclass ::xo::OrderedComposite] && + [$ordered_composite exists __orderby] && + [$ordered_composite exists __order] + } { set ordered_composite_orderby [$ordered_composite set __orderby] set ordered_composite_order [$ordered_composite set __order] if {$ordered_composite_order eq "increasing"} {