Bug fix.

diff --git a/botbot.scm b/botbot.scm
index 85a5ca9..eb9c078 100644 (file)
--- a/botbot.scm
+++ b/botbot.scm
@@ -68,7 +68,7 @@
    (lambda ()
      (let loop ()
        (thread-sleep! ping-period)
    (lambda ()
      (let loop ()
        (thread-sleep! ping-period)

-       (write-msg `(#f #f "PING" (,bot-host)) out-port) ; send ping
+       (write-msg `(#f #f "PING" (,irc-host)) out-port) ; send ping

        (loop)))))
 
 (define (bot-loop in-port out-port)
        (loop)))))
 
 (define (bot-loop in-port out-port)