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.2 -r1.2.10.3
--- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	29 Sep 2013 20:24:03 -0000	1.2.10.2
+++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	30 Sep 2013 09:38:18 -0000	1.2.10.3
@@ -140,9 +140,9 @@
 	# We use procs so that the Tcl code can be byte-code-compiled for extra performance
 	# benefit.
 
-	if { [catch { set info [__doc_adp_cache_info,$file_name] }] || \
-		[lindex $info 0] != $mtime || \
-		[lindex $info 1] != $size } {
+	if { [catch { set info [__doc_adp_cache_info,$file_name] }] 
+	     || [lindex $info 0] != $mtime
+	     || [lindex $info 1] != $size } {
 	    set reparse_p 1
 	} else {
 	    ns_log "Error" "CACHE HIT for $file_name"
@@ -266,7 +266,7 @@
 
 	    set tcl_code [string range $adp $tcl_code_begin $index-1]
 	    if { $puts_p } {
-		doc_adp_append_code "doc_adp_puts \[subst [doc_adp_quote_tcl_string $tcl_code]]"
+		doc_adp_append_code "doc_adp_puts \[subst [doc_adp_quote_tcl_string $tcl_code]\]"
 	    } else {
 		doc_adp_append_code $tcl_code
 	    }