Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	20 Dec 2019 21:18:10 -0000	1.14.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	2 Sep 2021 16:40:53 -0000	1.14.2.2
@@ -22,7 +22,7 @@
     db_foreach get_tree "" {
         incr count 10
         if {$parent_id eq ""} {
-            # need this as an anchor for toplevel categories
+            # need this as an anchor for top-level categories
             set parent_id -1
         }
         if {[info exists sort_key($category_id)]} {
@@ -36,7 +36,7 @@
     set count 1
     set stack [list]
     set done_list [list]
-    # put toplevel categories on stack
+    # put top-level categories on stack
     if {[info exists child(-1)]} {
         set stack [lsort -integer -index 0 $child(-1)]
     }