Index: openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl,v
diff -u -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	16 May 2009 23:54:18 -0000	1.9.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/html-conversion-procs.tcl	17 May 2009 00:48:24 -0000	1.9.2.2
@@ -65,9 +65,9 @@
 
     aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>"] "<b>Foobar</b> is <i>a very long word</i>"
 
-    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 15] "<b>Foobar</b> is <i>a</I>"
+    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 15] "<b>Foobar</b> is <i>a</i>"
 
-    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 0 20 "..."] "<b>Foobar</b> is <i>a very</I>..."
+    aa_equals "" [util_close_html_tags "<b>Foobar</b> is <i>a very long word</i>" 0 20 "..."] "<b>Foobar</b> is <i>a very</i>..."
 }
 
 
@@ -81,7 +81,7 @@
     set string "What?\n<i>Never mind, buddy</i>"
     
     aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/html" -truncate_len 14 -- $string] \
-        [ad_enhanced_text_to_html "What?\n<i>Never</I>..."]
+        [ad_enhanced_text_to_html "What?\n<i>Never</i>..."]
 
     # The string is longer in plaintext, because the "_" symbol to denote italics is counted as well.
     aa_equals "" [ad_html_text_convert -from "text/enhanced" -to "text/plain" -truncate_len 15 -- $string] "What?\n_Never..."
@@ -105,7 +105,7 @@
     set string "What?\nNever mind, buddy"
     
     aa_equals "" [ad_html_text_convert -from "text/fixed-width" -to "text/html" -truncate_len 14 -- $string] \
-        "<pre>What?\nNever</PRE>..."
+        "<pre>What?\nNever</pre>..."
     
     aa_equals "" [ad_html_text_convert -from "text/fixed-width" -to "text/plain" -truncate_len 14 -- $string] \
         "What?\nNever..."
@@ -118,7 +118,7 @@
     set string "What?<br><i>Never mind, buddy</i>"
     
     aa_equals "" [ad_html_text_convert -from "text/html" -to "text/html" -truncate_len 14 -- $string] \
-        "What?<br><i>Never</I>..."
+        "What?<br><i>Never</i>..."
     
     aa_equals "" [ad_html_text_convert -from "text/html" -to "text/plain" -truncate_len 15 -- $string] \
         "What?\n_Never..."