Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -N -r1.7.2.31 -r1.7.2.32
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	21 Mar 2020 09:43:13 -0000	1.7.2.31
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	21 Mar 2020 14:07:25 -0000	1.7.2.32
@@ -1300,6 +1300,7 @@
       # Get the IP addresses for the given revision set. Should be
       # actually only one. The revision_set must not be empty.
       #
+      set IPs ""
       foreach revision_set $revision_sets {
         set ip [ns_set get $revision_set creation_ip]
         if {$ip ne ""} {