Index: openacs-4/packages/news-aggregator/tcl/weblog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/weblog-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/news-aggregator/tcl/weblog-procs.tcl	20 Mar 2004 11:04:39 -0000	1.1
+++ openacs-4/packages/news-aggregator/tcl/weblog-procs.tcl	7 Apr 2018 16:58:52 -0000	1.2
@@ -22,13 +22,13 @@
     @author Simon Carstensen (simon@bcuni.net)
     @creation-date 2003-07-14
 } {
-    if { [empty_string_p $package_id]} {
+    if { $package_id eq ""} {
         set package_id [ad_conn package_id]
     }
-    if { [empty_string_p $user_id]} {
+    if { $user_id eq ""} {
         set user_id [ad_conn user_id]
     }
-    if { [empty_string_p $ip]} {
+    if { $ip eq ""} {
 	set ip [ns_conn peeraddr]
     }