Index: openacs-4/etc/install/tcl/config-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/config-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/etc/install/tcl/config-procs.tcl	12 Oct 2003 01:10:13 -0000	1.1
+++ openacs-4/etc/install/tcl/config-procs.tcl	21 Oct 2003 15:06:15 -0000	1.2
@@ -15,6 +15,9 @@
 
 # TODO: put variables in twt namespace
 
+global __serverroot
+set __serverroot $serverroot
+
 global __server_url
 set __server_url $server_url
 
@@ -61,3 +64,9 @@
 
     return $__admin_password
 }
+
+ad_proc ::twt::config::serverroot { } {
+    global __serverroot
+
+    return $__serverroot
+}