Index: openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	8 Feb 2002 03:59:31 -0000	1.23
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	9 Mar 2002 02:00:02 -0000	1.24
@@ -174,7 +174,7 @@
 	set proc_name [info level [expr "-2 - $added_stack_num"]]
     }
 
-    set list_of_source_procs {ns_sourceproc apm_source template::adp_parse rp_handle_tcl_request}
+    set list_of_source_procs {ns_sourceproc apm_source template::adp_parse template::frm_page_handler rp_handle_tcl_request}
 
     # We check if we're running the special ns_ proc that tells us
     # whether this is an URL or a Tcl proc.
@@ -216,6 +216,12 @@
                 regsub {^/?packages} $url {} url
             }
 
+            template::frm_page_handler {
+                db_qd_log Debug "We are in the template system's form page debugger!"
+                set real_url_p 1
+                regsub {\.frm} [ad_conn url] {} url
+            }
+
             default {
                 db_qd_log Debug "We are in a WWW page sourced by apm_source, woohoo!"
                 set real_url_p 0