Index: openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl,v
diff -u -r1.2.10.3 -r1.2.10.4
--- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	30 Sep 2013 09:38:18 -0000	1.2.10.3
+++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	2 Oct 2013 22:55:54 -0000	1.2.10.4
@@ -244,7 +244,9 @@
 	if { [string index $adp $index] eq "/" } {
 	    set end_tag_p 1
 	    incr index
-	} elseif { ![info exists literal_tag] && [string index $adp $index] eq "%" } {
+	} elseif { ![info exists literal_tag] 
+		   && [string index $adp $index] eq "%" 
+	} {
 	    doc_adp_flush_text_buffer
 
 	    incr index
@@ -256,8 +258,9 @@
 	    }
 	    set tcl_code_begin $index
 
-	    while { $index < [string length $adp] && \
-		    ([string index $adp $index] ne "%" || [string index $adp $index+1] ne ">") } {
+	    while { $index < [string length $adp] 
+		    && ([string index $adp $index] ne "%" || [string index $adp $index+1] ne ">") 
+		} {
 		incr index
 	    }
 	    if { $index >= [string length $adp] } {
@@ -286,15 +289,17 @@
 	if { ![info exists tag] } {
 	    # Find the next non-word character.
 	    set tag_begin $index
-	    while { [string index $adp $index] eq "-" || \
-		    [string is wordchar -strict [string index $adp $index]] } {
+	    while { [string index $adp $index] eq "-" 
+		    || [string is wordchar -strict [string index $adp $index]] 
+		} {
 		incr index
 	    }
 	    set tag [string range $adp $tag_begin $index-1]
 	}
 
-	if { (![info exists literal_tag] || ($end_tag_p && $tag eq $literal_tag)) && \
-		[nsv_exists doc_adptags $tag] } {
+	if { (![info exists literal_tag] || ($end_tag_p && $tag eq $literal_tag)) 
+	     && [nsv_exists doc_adptags $tag] 
+	 } {
 	    doc_adp_flush_text_buffer
 
 	    if { [info exists literal_tag] } {
@@ -321,10 +326,11 @@
 
 		# Not a > - must be an attribute name.
 		set attr_name_begin $index
-		while { $index < $adp_length && \
-			[string index $adp $index] ne ">" && \
-			[string index $adp $index] ne "=" && \
-			![string is space -strict [string index $adp $index]] } {
+		while { $index < $adp_length 
+			&& [string index $adp $index] ne ">" 
+			&& [string index $adp $index] ne "=" 
+			&& ![string is space -strict [string index $adp $index]] 
+		    } {
 		    incr index
 		}
 		if { $attr_name_begin eq $index } {
@@ -348,10 +354,11 @@
 			incr index
 		    } else {
 			set value_begin $index
-			while { $index < $adp_length && \
-				[string index $adp $index] ne ">" && \
-				[string index $adp $index] ne "=" && \
-				![string is space -strict [string index $adp $index]] } {
+			while { $index < $adp_length 
+				&& [string index $adp $index] ne ">" 
+				&& [string index $adp $index] ne "=" 
+				&& ![string is space -strict [string index $adp $index]] 
+			    } {
 			    incr index
 			}
 			set value_end $index