Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	23 Sep 2003 09:19:44 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	23 Sep 2003 19:51:38 -0000	1.10
@@ -370,6 +370,13 @@
     } else {
         aa_log "Text version: $text_version"
     }
+
+    # Test placement of [1] reference
+    set html {Here is <a href="http://openacs.org">http://openacs.org</a> my friend}
+
+    set text_version [ad_html_to_text -- $html]
+
+    aa_log "Text version: $text_version"
 }
 
 aa_register_case ad_page_contract_filters {