Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.113.2.20 -r1.113.2.21
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	21 Oct 2013 07:40:22 -0000	1.113.2.20
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	14 Nov 2013 08:36:08 -0000	1.113.2.21
@@ -1587,7 +1587,7 @@
 } {
     set key ::acs::root_of_host($host)
     if {[info exists $key]} {return [set $key]}
-    set $key [root_of_host1 $key]
+    set $key [root_of_host1 $host]
 }
 
 proc root_of_host1 {host} {