Index: openacs-4/packages/acs-subsite/www/admin/rel-types/roles/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/roles/edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/roles/edit.tcl	18 Sep 2002 12:16:43 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/roles/edit.tcl	10 Jan 2007 21:22:07 -0000	1.4
@@ -56,7 +56,7 @@
 	       r.pretty_plural = :pretty_plural
 	 where r.role = :role
     } -bind [ns_getform]
-    if { [empty_string_p $return_url] } {
+    if { $return_url eq "" } {
 	set return_url "one?[ad_export_vars role]"
     }
     ad_returnredirect $return_url