Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -N -r1.75 -r1.76
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	3 Nov 2018 18:58:49 -0000	1.75
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	30 Nov 2018 10:20:51 -0000	1.76
@@ -931,6 +931,11 @@
   } {
     set __atts [list creation_user]
     set __vars $__atts
+    if {[ns_conn isconnected]} {
+      lappend __atts creation_ip
+      set peeraddr [ad_conn peeraddr]
+      lappend __vars peeraddr
+    }
 
     #
     # The modifying_user is not maintained by the CR (bug?)