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.10.1 -r1.5.10.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	10 Oct 2013 21:00:45 -0000	1.5.10.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	11 Oct 2013 11:11:17 -0000	1.5.10.2
@@ -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
 	}