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.27.2.2 -r1.27.2.3
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	12 Dec 2002 00:20:53 -0000	1.27.2.2
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	16 Feb 2003 20:27:05 -0000	1.27.2.3
@@ -306,6 +306,7 @@
 	regsub -all {/} $url {.} url
 
 	# We insert the "www" after the package key
+        set rest {}
 	regexp {^([^\.]*)(.*)} $url all package_key rest
 
 	db_qd_log QDDebug "package key is $package_key and rest is $rest"
@@ -361,6 +362,7 @@
 
 	# We get something like packages.acs-tcl.tcl.acs-kernel-procs
 	# We need to remove packages.
+        set rest {}
 	regexp {^packages\.(.*)} $url all rest
 
 	db_qd_log QDDebug "TEMP - QD: proc_name is $proc_name"