*** library/scrlbar.tcl.orig	Sat Oct 30 11:36:09 1999
--- library/scrlbar.tcl	Sun Jan 16 17:43:02 2000
***************
*** 227,233 ****
      if {[llength $tkPriv(initValues)] == 2} {
  	set tkPriv(initPos) $iv0
      } else {
! 	if {$iv0 == 0} {
  	    set tkPriv(initPos) 0.0
  	} else {
  	    set tkPriv(initPos) [expr {(double([lindex $tkPriv(initValues) 2])) \
--- 227,233 ----
      if {[llength $tkPriv(initValues)] == 2} {
  	set tkPriv(initPos) $iv0
      } else {
! 	if {!$iv0} {
  	    set tkPriv(initPos) 0.0
  	} else {
  	    set tkPriv(initPos) [expr {(double([lindex $tkPriv(initValues) 2])) \
