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 -r1.5 -r1.6
--- 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	27 Oct 2014 16:39:46 -0000	1.6
@@ -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"
@@ -145,7 +145,7 @@
 	    append text "-- Drop script\n";
 	    for { set i [expr {[llength $plsql_drop] - 1}] } { $i >= 0 } { set i [expr {$i - 1}] } {
 		# Don't need the sql keys when we display debugging information
-		append text "-- [lindex [lindex $plsql_drop $i] 1]\n\n"
+		append text "-- [lindex $plsql_drop $i 1]\n\n"
 	    }
 	    return $text
 	}