Index: openacs-4/packages/lars-blogger/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/category-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/tcl/category-procs.tcl	29 Dec 2003 21:54:27 -0000	1.4
+++ openacs-4/packages/lars-blogger/tcl/category-procs.tcl	30 Oct 2013 17:37:08 -0000	1.5
@@ -16,13 +16,13 @@
     set creation_user [ad_conn user_id]
     set creation_ip [ns_conn peeraddr]
 
-    if { [empty_string_p $category_id] } {
+    if { $category_id eq "" } {
         set category_id [db_nextval acs_object_id_seq]
     }
-    if { [empty_string_p $package_id] } {
+    if { $package_id eq "" } {
         set package_id [ad_conn package_id]
     }
-    if { [empty_string_p $short_name] } {
+    if { $short_name eq "" } {
         set existing_short_names [lars_blogger::category::get_existing_short_names -package_id $package_id]
         set short_name [util_text_to_url -existing_urls $existing_short_names -text $name]
     }