--- tkabber/login.tcl.orig      2012-01-07 19:03:48.380345915 +0400
+++ tkabber/login.tcl   2012-01-07 19:04:03.214453328 +0400
@@ -348,7 +348,7 @@
     if {$login_after_time < 1800000} {
        # 1800000 == 30 * 60 * 1000 == 30min
        # the sequence goes: 15s, 30s, 1min, 2min, 4min, 8min, 16min, 32min, 32min...
-       set login_after_time [expr {$login_after_time * 2}]
+       #set login_after_time [expr {$login_after_time * 2}]
     }
     array set lc $logindata
     set jid $lc(jid)