Index: openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl	16 May 2006 09:24:36 -0000	1.2
+++ openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl	19 May 2006 17:26:02 -0000	1.3
@@ -27,10 +27,10 @@
 }
 
 if {[info exist parent_group_id] } {
-    set new_instance [imsld::roles::create_instance -role_id $role -parent_group_id $parent_group_id]
+    set new_instance [imsld::roles::create_instance -role_id $role -parent_group_id $parent_group_id -run_id $run_id]
     ad_returnredirect [export_vars -base imsld-admin-roles {{role $role} {imsld_id $imsld_id} {run_id $run_id} {group_instance $new_instance}}]
 } elseif { ![db_0or1row has_role_parent_p {}] } {
-    set new_instance [imsld::roles::create_instance -role_id $role]
+    set new_instance [imsld::roles::create_instance -role_id $role -run_id $run_id]
     ad_returnredirect [export_vars -base imsld-admin-roles {{role $role} {imsld_id $imsld_id} {run_id $run_id} {group_instance $new_instance}}]
 } else {
     set flag on