Index: xotcl/library/lib/htmllib.xotcl
===================================================================
diff -u -rad8a63234e44a8788efede276e811051ab891fbe -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/lib/htmllib.xotcl	(.../htmllib.xotcl)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
+++ xotcl/library/lib/htmllib.xotcl	(.../htmllib.xotcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -1,4 +1,4 @@
-## $Header: /home/neumann/cvs/xotcl/xotcl/library/lib/htmllib.xotcl,v 1.3 2005/09/09 21:09:01 neumann Exp $
+## $Header: /home/neumann/cvs/xotcl/xotcl/library/lib/htmllib.xotcl,v 1.4 2006/09/14 06:36:02 neumann Exp $
 
 #
 # htmllib.xotcl
@@ -50,7 +50,7 @@
 	    Antti Salonen, as@fishpool.fi
 	}
 	date {
-	    $Date: 2005/09/09 21:09:01 $
+	    $Date: 2006/09/14 06:36:02 $
 	}
     }
     
@@ -212,9 +212,9 @@
 
     HtmlBuilder instproc addStringWithLineBreaks {str} {
 	while {[set idx [string first "\n" $str]] != -1} {
-	    my addString [string range $str 0 [expr $idx - 1]]
+	    my addString [string range $str 0 [expr {$idx - 1}]]
 	    my addLineBreak
-	    set str [string range $str [expr $idx + 1] end]
+	    set str [string range $str [expr {$idx + 1}] end]
 	}
 	my addString $str
     }