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.28.2.29 -r1.28.2.30
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	20 Apr 2023 13:57:37 -0000	1.28.2.29
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	28 Jul 2024 17:00:03 -0000	1.28.2.30
@@ -1223,7 +1223,7 @@
             set rfd [open $f r]
             set xml [read $rfd]
             close $rfd
-            aa_false "Catalog file '$f' apears to be valid XML" [catch {dom parse $xml doc}]
+            aa_false "Catalog file '$f' apears to be valid XML" [catch {dom parse -- $xml doc}]
         }
     }