Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl,v
diff -u -N -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	26 Jun 2019 15:31:25 -0000	1.10.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	3 Sep 2019 06:35:55 -0000	1.10.2.3
@@ -87,27 +87,23 @@
 
         @author Hanifa Hasan
 } {
-    aa_run_with_teardown \
-        -rollback \
-        -test_code {
-            set versions [list \
-                {1.2d3 3.5b -1} \
-                {3.5b 1.2d3 1} \
-                {3.5b 3.5b 0} \
-                {5.0.0d5 5.0.0b1 -1} \
-                {5.0.0a5 5.0.0b1 -1} \
-                {5.0.0d5 5.0.0a1 -1} \
-            ]
-            aa_log "-1: First version is earlier"
-            aa_log "0: Both versions are equal"
-            aa_log "1: Second version is earlier"
-            foreach version $versions {
-                set version_name1 [lindex $version 0]
-                set version_name2 [lindex $version 1]
-                set result        [lindex $version 2]
-                aa_equals "Comparing $version_name1 and $version_name2" [apm_version_names_compare $version_name1 $version_name2] "$result"
-            }
-        }
+    set versions [list \
+        {1.2d3 3.5b -1} \
+        {3.5b 1.2d3 1} \
+        {3.5b 3.5b 0} \
+        {5.0.0d5 5.0.0b1 -1} \
+        {5.0.0a5 5.0.0b1 -1} \
+        {5.0.0d5 5.0.0a1 -1} \
+    ]
+    aa_log "-1: First version is earlier"
+    aa_log "0: Both versions are equal"
+    aa_log "1: Second version is earlier"
+    foreach version $versions {
+        set version_name1 [lindex $version 0]
+        set version_name2 [lindex $version 1]
+        set result        [lindex $version 2]
+        aa_equals "Comparing $version_name1 and $version_name2" [apm_version_names_compare $version_name1 $version_name2] "$result"
+    }
 }
 
 # Local variables: