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.2 -r1.3
--- openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl	10 Jan 2007 21:22:06 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy-2.tcl	27 Oct 2014 16:39:49 -0000	1.3
@@ -24,7 +24,7 @@
     return
 }
 
-if {$dynamic_p ne "t" } {
+if {$dynamic_p != "t" } {
     ad_return_error "Cannot administer group type" "Group type \"$group_type\" can only be administered by programmers"
 }
 
@@ -45,7 +45,7 @@
 }
 
 if {$return_url eq ""} {
-    set return_url one?[ad_export_vars group_type]
+    set return_url one?[export_vars group_type]
 }
 
 ad_returnredirect $return_url
\ No newline at end of file