Index: openacs-4/packages/lars-blogger/www/blog-months.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog-months.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/www/blog-months.tcl	3 Jul 2006 13:35:58 -0000	1.5
+++ openacs-4/packages/lars-blogger/www/blog-months.tcl	8 Aug 2006 21:26:57 -0000	1.6
@@ -1,14 +1,15 @@
 if {![exists_and_not_null package_id]} {
     set package_id [ad_conn package_id]
 }
+set package_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
 if [empty_string_p $screen_name] {
     db_multirow -extend { url } months all_blog_months { *SQL* } {
-	set url "[apm_package_url_from_id $package_id]archive/$month_url_stub"
+	set url "${package_url}archive/$month_url_stub"
     }
 } else {
     db_multirow -extend { url } months one_blog_months { *SQL* } {
-	set url "[apm_package_url_from_id $package_id]user/$screen_name/archive/$month_url_stub"
+	set url "${package_url}user/$screen_name/archive/$month_url_stub"
     }
 }