Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	14 Sep 2002 16:40:33 -0000	1.4
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	14 Sep 2002 21:43:36 -0000	1.5
@@ -75,4 +75,14 @@
         }
     }
     return [ad_parameter -package_id $package_id "public_url" "lars-blogger" $default_url] 
+}
+
+ad_proc -public lars_blog_name { 
+    -package_id
+} {
+    if { ![exists_and_not_null package_id] } {
+        set package_id [ad_conn package_id]
+    }
+    array set site_node [site_node::get_from_object_id -object_id [ad_conn package_id]]
+    return $site_node(instance_name)
 }
\ No newline at end of file