Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	15 Oct 2003 12:35:51 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	7 Nov 2003 10:38:38 -0000	1.22
@@ -434,12 +434,10 @@
   while {[regsub -all [template::adp_variable_regexp] $code {\1[ad_quotehtml ${\2}]} code]} {}
   while {[regsub -all [template::adp_variable_regexp_noquote] $code {\1${\2}} code]} {}
 
+  # unescape protected # references
   # unescape protected @ references
-  set code [string map { \\@ @ } $code]
+  set code [string map { \\@ @ \\# #} $code]
 
-  # unescape protected # references
-  set code [string map { \\# # } $code]
-
   return $code
 }