Index: openacs-4/packages/categories/tcl/test/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/test/categories-procs.tcl,v
diff -u -r1.3.2.18 -r1.3.2.19
--- openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 11:54:05 -0000	1.3.2.18
+++ openacs-4/packages/categories/tcl/test/categories-procs.tcl	27 Feb 2023 12:19:09 -0000	1.3.2.19
@@ -265,11 +265,23 @@
     category_tree::exists_p
     package_instantiate_object
     relation::get_object_one
+    category_tree::reset_translation_cache
 } -cats {
     api
 } category_tree_procs {
     Test different category_tree procs.
 } {
+    #
+    # category_tree::reset_translation_cache should load the tree
+    # translation cache at startup. If we have trees, the cache should
+    # already exist.
+    #
+    set one_tree_id [db_string get_tree {
+        select min(tree_id) from category_trees
+    } -default ""]
+    aa_equals "Trees have already been loaded at startup" \
+        [expr {$one_tree_id ne ""}] [nsv_exists category_tree_translations $one_tree_id]
+
     aa_run_with_teardown -rollback -test_code {
         #
         # Create tree