Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v
diff -u -r1.23.2.16 -r1.23.2.17
--- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	13 Mar 2023 14:04:37 -0000	1.23.2.16
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	30 Mar 2023 14:24:39 -0000	1.23.2.17
@@ -150,10 +150,21 @@
         # IP address.
         #
         if {[:current_message_valid]} {
+            #
+            # We may also add a message from outside of a connection,
+            # for instance when the chat sweeper logs people out after
+            # the timeout.
+            #
+            if {[ns_conn isconnected]} {
+                set creation_ip [ns_conn peeraddr]
+            } else {
+                set creation_ip ""
+            }
+
             $r post_message \
                 -msg $msg \
                 -creation_user $party_id \
-                -creation_ip [ad_conn peeraddr]
+                -creation_ip $creation_ip
         }
 
         return $retval