Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	13 Mar 2002 22:50:53 -0000	1.6
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	1 Sep 2002 02:24:57 -0000	1.7
@@ -64,10 +64,10 @@
   template::adp_append_code "\}"
 }
 
-# append all the tags together and then eval as a list to restore
-# quotes
-
 ad_proc -public template_tag_if_concat_params { params } {
+  append all the tags together and then eval as a list to restore
+  quotes
+} {
 
   set size [ns_set size $params]
 
@@ -86,9 +86,9 @@
   return $tokens
 }
 
-# Interpret an expression as part of the simplified IF syntax
-
 ad_proc -public template_tag_if_interp_expr {} {
+  Interpret an expression as part of the simplified IF syntax
+} {
 
   upvar args args condition condition