Index: modules/crc/crc16.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/crc/crc16.tcl,v
retrieving revision 1.11
diff -u -r1.11 crc16.tcl
--- modules/crc/crc16.tcl	25 Jan 2004 07:29:21 -0000	1.11
+++ modules/crc/crc16.tcl	26 Aug 2005 15:21:59 -0000
@@ -65,7 +65,8 @@
     # calculate the sign bit for the current platform.
     variable signbit
     if {![info exists signbit]} {
-        for {set v 1} {$v != 0} {set signbit $v; set v [expr {$v<<1}]} {}
+	variable v
+        for {set v 1} {int($v) != 0} {set signbit $v; set v [expr {$v<<1}]} {}
     }
 }
 
Index: modules/crc/crc32.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/crc/crc32.tcl,v
retrieving revision 1.19
diff -u -r1.19 crc32.tcl
--- modules/crc/crc32.tcl	25 Aug 2005 20:47:00 -0000	1.19
+++ modules/crc/crc32.tcl	26 Aug 2005 15:22:00 -0000
@@ -87,7 +87,8 @@
     # calculate the sign bit for the current platform.
     variable signbit
     if {![info exists signbit]} {
-        for {set v 1} {$v != 0} {set signbit $v; set v [expr {$v<<1}]} {}
+	variable v
+        for {set v 1} {int($v) != 0} {set signbit $v; set v [expr {$v<<1}]} {}
     }
     
     variable uid ; if {![info exists uid]} {set uid 0}
