Index: openacs-4/packages/boomerang/tcl/boomerang-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/boomerang/tcl/boomerang-procs.tcl,v
diff -u -r1.13.2.29 -r1.13.2.30
--- openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	3 Nov 2022 09:08:25 -0000	1.13.2.29
+++ openacs-4/packages/boomerang/tcl/boomerang-procs.tcl	16 Nov 2022 07:30:16 -0000	1.13.2.30
@@ -213,6 +213,7 @@
                         # might become negative in such situations,
                         # but this is handled via sanity checks.
                         #
+                        set l $entries
                         set l1 [lsort -integer -stride 2 -index 1 [concat {*}[lmap {key value} $l {
                             if {![string is entier -strict $value]} continue
                             list $key $value