Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v diff -u -r1.32.2.1 -r1.32.2.2 --- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 18 Mar 2004 09:07:46 -0000 1.32.2.1 +++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 18 Mar 2004 16:15:55 -0000 1.32.2.2 @@ -73,7 +73,7 @@ @author Peter marklund (peter@collaboraid.biz) } { - return {(<#\s*?([-a-zA-Z0-9_:\.]+)\s+(.+?)#>)} + return {(<#\s*?([-a-zA-Z0-9_:\.]+)\s+(.+?)\s*?#>)} } ad_proc lang::util::get_temporary_tags_indices { adp_file_string } { Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v diff -u -r1.15.2.2 -r1.15.2.3 --- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 18 Mar 2004 10:12:38 -0000 1.15.2.2 +++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 18 Mar 2004 16:15:55 -0000 1.15.2.3 @@ -508,7 +508,7 @@ set new_key_3 "key_1" set new_text_3 "$messages_array(key_1)" puts $tcl_file_id "# The following key should be auto-generated and inserted - # <#${new_key_1} ${new_text_1}#> + # <# ${new_key_1} ${new_text_1} #> # # The following key should be made unique and inserted # <#${new_key_2} ${new_text_2}#>