Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.128
diff -u -r1.128 tkchat.tcl
--- tkchat.tcl	8 Oct 2003 10:56:59 -0000	1.128
+++ tkchat.tcl	2 Dec 2003 22:44:00 -0000
@@ -3346,7 +3346,7 @@
 proc ::tkchat::scroll_set {sbar f1 f2} {
     global Options
     $sbar set $f1 $f2
-    if {[string equal "$f1$f2" "01"]} {        
+    if {($f1 == 0) && ($f2 == 1)} {
 	grid remove $sbar
     } else {
         if {[winfo exists .pane]} {
@@ -3355,7 +3355,7 @@
             grid $sbar
         }
     }
-    set Options(AutoScroll) [string equal $f2 1]
+    set Options(AutoScroll) [expr {$f2 == 1}]
 }
 
 
