Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.71.2.63 -r1.71.2.64
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	10 Jul 2024 13:12:11 -0000	1.71.2.63
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Jul 2024 08:45:46 -0000	1.71.2.64
@@ -91,7 +91,7 @@
         db_dml set_test_mount {update apm_package_versions
                                set auto_mount = :auto_mount
                                where version_id = :version_id}
-        }
+    }
 
     set error_p [catch {
         # Add a few test callbacks
@@ -101,10 +101,10 @@
                                 values (:version_id, :type, :proc)}
         }
 
-        # Get the xml string
+        # Get the XML string
         set spec [apm_generate_package_spec $version_id]
 
-        # Write xml to file
+        # Write XML to file
         set spec_file_id [open $spec_path w]
         puts $spec_file_id $spec
         close $spec_file_id