Index: openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl	10 Jan 2007 21:22:06 -0000	1.2
@@ -24,7 +24,7 @@
     return
 }
 
-if {![string equal $dynamic_p t]} {
+if {$dynamic_p ne "t" } {
     ad_return_error "Cannot administer group type" "Group type \"$group_type\" can only be administered by programmers"
 }
 
@@ -44,7 +44,7 @@
     }
 }
 
-if {[empty_string_p $return_url]} {
+if {$return_url eq ""} {
     set return_url one?[ad_export_vars group_type]
 }