Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -N -r1.5 -r1.5.10.1
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	10 Jan 2007 21:22:06 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	10 Oct 2013 21:00:45 -0000	1.5.10.1
@@ -136,7 +136,7 @@
         lappend plsql_drop [list remove_rel_types "delete from group_type_rels where group_type = :group_type"]
         lappend plsql [list copy_rel_types [db_map copy_rel_types]]
 
-        if { $execute_p eq "f" } {
+        if { $execute_p == "f" } {
 	    set text "-- Create script"
 	    foreach pair $plsql {
 		append text "[plsql_utility::parse_sql [lindex $pair 1]]\n\n"