Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	19 Mar 2004 13:09:35 -0000	1.22.2.1
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	21 May 2004 23:15:14 -0000	1.22.2.2
@@ -275,15 +275,18 @@
     @author Frank Nikolajsen (frank@warpspace.com)
     @creation-date 2003-03-08
 } {
+    if { [empty_string_p $subsite_id] } {
+	set subsite_id [ad_conn subsite_id]
+    }
+
     subsite::get -subsite_id $subsite_id -array subsite_info
+    set result $subsite_info($element)
 
     if { $notrailing_p && [string match $element "url"]} {
-        set returnval [string trimright $subsite_info($element) "/"]
-    } else {
-	set returnval $subsite_info($element)
+        set result [string trimright $result "/"]
     }
 
-    return $returnval
+    return $result
 }