Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	3 Sep 2024 15:37:33 -0000	1.29
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	1 Oct 2024 12:43:19 -0000	1.30
@@ -1241,9 +1241,7 @@
         }
 
         foreach f $catalog_files {
-            set rfd [open $f r]
-            set xml [read $rfd]
-            close $rfd
+            set xml [lang::catalog::read_file $f]
             aa_false "Catalog file '$f' appears to be valid XML" [catch {dom parse -- $xml doc}]
         }
     }