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 -r1.7 -r1.8
--- openacs-4/packages/lars-blogger/www/blog-months.tcl	16 Oct 2006 15:21:54 -0000	1.7
+++ openacs-4/packages/lars-blogger/www/blog-months.tcl	30 Oct 2013 17:37:09 -0000	1.8
@@ -3,7 +3,7 @@
 }
 set package_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
-if [empty_string_p $screen_name] {
+if {$screen_name eq ""} {
     db_multirow -extend { url } months all_blog_months { *SQL* } {
 	set url "${package_url}archive/$month_url_stub"
     }