diff --git a/IRC.Mod b/IRC.Mod
index c591a3e..54968a6 100644
--- a/IRC.Mod
+++ b/IRC.Mod
@@ -55,13 +55,18 @@ CONST
      callbackPrivate*: cbPrivateMessage;
      callbackPublic*: cbPublicMessage;
      callbackPublicMention*: cbPublicMessageWithMention;
-     doLog* : BOOLEAN;
+     doLog : BOOLEAN;
     END;
 
 
 VAR
   eol* : ARRAY 3 OF CHAR;
 
+PROCEDURE setLogging*(VAR inst: instance; state: BOOLEAN);
+BEGIN
+  inst.doLog := state;
+END setLogging;
+
 PROCEDURE formUserNickLine(VAR user, owner, nick, res: ARRAY OF CHAR);
 VAR
   l : INTEGER;
diff --git a/test.Mod b/test.Mod
index 710bd5f..033606a 100644
--- a/test.Mod
+++ b/test.Mod
@@ -40,6 +40,7 @@ BEGIN
   Out.String("recipient: '"); Out.String(rcpt); Out.Char("'"); Out.Ln;
   Out.String("host: '"); Out.String(host); Out.Char("'"); Out.Ln;
   Out.String("*** that's it ***"); Out.Ln;
+  IF msgtype # IRC.msgJOIN THEN IRC.sendMsgToDst(inst, rcpt, "test back") END;
 END onPublicMessage;
 
 PROCEDURE onPublicMessageWithMention(VAR msg, msgtype, user, ident, rcpt, host: ARRAY OF CHAR);
@@ -76,7 +77,7 @@ BEGIN
   NEW(channels, 2);
   channels[0].channel := "#oberon-test";
   channels[1].channel := "#pascal-test";
-  inst.doLog := TRUE;
+  IRC.setLogging(inst, TRUE);
   IRC.initChannelList(inst, channels);
 
   Platform.SetInterruptHandler(interrupt);