From 51d62bb531fd753746ae6816f401210cc6344bfe Mon Sep 17 00:00:00 2001
From: gahr <gahr>
Date: Tue, 20 Feb 2018 09:36:27 +0000
Subject: [PATCH] Reset checkEventId in checkConnection

Fixes #9
---
 retcl.tm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/retcl.tm b/retcl.tm
index 0818907..28297c1 100644
--- a/retcl.tm
+++ b/retcl.tm
@@ -195,7 +195,7 @@ oo::class create retcl {
     # Periodically check whether a connection has been interrupted.
     method checkConnection {} {
         if {$sock ne {} && ![catch {chan eof $sock} err] && !$err} {
-            after 500 [list [self object] checkConnection]
+            set checkEventId [after 500 [list [self object] checkConnection]]
         } else {
             my disconnect
             set activity 1