Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	20 Mar 2019 16:55:21 -0000	1.1.2.4
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-test-procs.tcl	15 Apr 2019 12:04:53 -0000	1.1.2.5
@@ -156,11 +156,10 @@
             where object_id = :object_id
         }
         # In CrItem modification info is in fact creation info of the
-        # live revision (except the modifying ip at creation, which
-        # comes from the item's acs_object)
+        # live revision, with the exception of the modifying ip, which
+        # comes from the item's acs_object
         ::xo::dc 1row get_revision_object {
             select creation_user as modifying_user,
-                   coalesce(creation_ip, :modifying_ip) as modifying_ip,
                    creation_date as last_modified
             from acs_objects
             where object_id = :revision_id
@@ -224,10 +223,10 @@
             where object_id = :object_id
         }
         # In CrItem modification info is in fact creation info of the
-        # live revision
+        # live revision, with the exception of the modifying ip, which
+        # comes from the item's acs_object
         ::xo::dc 1row get_revision_object {
             select creation_user as modifying_user,
-                   creation_ip as modifying_ip,
                    creation_date as last_modified
             from acs_objects
             where object_id = :revision_id