Index: openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/message-relay-procs.tcl,v
diff -u -N -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl	25 Apr 2019 15:47:22 -0000	1.1.2.6
+++ openacs-4/packages/xotcl-core/tcl/message-relay-procs.tcl	12 Sep 2022 13:15:09 -0000	1.1.2.7
@@ -1,5 +1,5 @@
-xo::library doc {
-  GenericMessageRelay procs
+::xo::library doc {
+  Generic MessageRelay procs
 
   Provide means to publish a subscription key and let clients write to
   these keys. These functions are used e.g. by the chat.
@@ -11,6 +11,9 @@
 namespace eval ::xo {
 
   nx::Class create ::xo::MessageRelay {
+    #
+    # Generic Message Relay class
+    #
     :public method subscribe {key {-initmsg ""} {-mode default}} {
       #
       # Subscribe to a service identified by a key.