Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/Attic/xotcl-test-procs.tcl,v
diff -u -N -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	23 Apr 2019 14:26:29 -0000	1.1.2.9
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	23 Apr 2019 17:00:38 -0000	1.1.2.10
@@ -155,17 +155,17 @@
             select creation_date,
                    creation_user,
                    creation_ip,
+                   modifying_ip,
                    package_id,
                    context_id
             from acs_objects
             where object_id = :object_id
         }
-        # In CrItem modification info is in fact creation info of the
-        # live revision
+        # In CrItem some modification info is in fact creation info of
+        # the live revision
         ::xo::dc 1row get_revision_object {
             select creation_user as modifying_user,
-                   creation_date as last_modified,
-                   creation_ip   as modifying_ip
+                   creation_date as last_modified
             from acs_objects
             where object_id = :revision_id
         }
@@ -227,17 +227,17 @@
             select creation_date,
                    creation_user,
                    creation_ip,
+                   modifying_ip,
                    package_id,
                    context_id
             from acs_objects
             where object_id = :object_id
         }
-        # In CrItem modification info is in fact creation info of the
-        # live revision
+        # In CrItem some modification info is in fact creation info of
+        # the live revision
         ::xo::dc 1row get_revision_object {
             select creation_user as modifying_user,
-                   creation_date as last_modified,
-                   creation_ip   as modifying_ip
+                   creation_date as last_modified
             from acs_objects
             where object_id = :revision_id
         }