Reset checkEventId in checkConnection

Fixes #9
gahr · Feb 20, 2018 · ff4160a · ff4160a
1 parent eabc596
commit ff4160a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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