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.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"} {