Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	30 Sep 2003 12:10:03 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	10 Jan 2007 21:22:06 -0000	1.4
@@ -27,10 +27,10 @@
 
 } {
     if { [ad_conn isconnected] } {
-	if { [empty_string_p $creation_user] } {
+	if { $creation_user eq "" } {
 	    set creation_user [ad_conn user_id]
 	}
-	if { [empty_string_p $creation_ip] } {
+	if { $creation_ip eq "" } {
 	    set creation_ip [ad_conn peeraddr]
 	}
     }