Index: xotcl/library/comm/Access.xotcl
===================================================================
diff -u -N -r1aa7246cc8e44078c9dbd33e03992478615f314f -r99a7a21854051cd691029b15ef8877aa9e86cf44
--- xotcl/library/comm/Access.xotcl	(.../Access.xotcl)	(revision 1aa7246cc8e44078c9dbd33e03992478615f314f)
+++ xotcl/library/comm/Access.xotcl	(.../Access.xotcl)	(revision 99a7a21854051cd691029b15ef8877aa9e86cf44)
@@ -1,4 +1,4 @@
-# -*- tcl -*- $Id: Access.xotcl,v 1.6 2006/09/27 08:12:40 neumann Exp $
+# -*- tcl -*- $Id: Access.xotcl,v 1.7 2007/08/06 11:35:56 neumann Exp $
 
 set httpAccessVersion 0.91
 package provide xotcl::comm::httpAccess $httpAccessVersion
@@ -1027,7 +1027,7 @@
 	my instvar S chunkLength totalsize
 	set length [$S gets lengthString]
 	if {$length > 0} {
-	    set chunkLength [expr {0x$lengthString}]
+	    set chunkLength [expr 0x$lengthString]
 	    #my showVars lengthString chunkLength
 	    if {$chunkLength == 0} {
 		$S event readable [self] readChunkedTrailer