Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	18 Apr 2006 18:03:49 -0000	1.54
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	18 Apr 2006 18:28:58 -0000	1.55
@@ -697,7 +697,6 @@
         # get the url to parse it and get the info
         set url [ns_conn url]
         regexp {finish-component-element-([0-9]+)-([0-9]+)-([0-9]+)-([0-9]+)-([0-9]+)-([a-z]+).imsld$} $url match imsld_id play_id act_id role_part_id element_id type
-        regsub {/finish-component-element.*} $url "" return_url 
     }
     # now that we have the necessary info, mark the finished element completed and return
     db_dml insert_element_entry { *SQL* }
@@ -898,7 +897,11 @@
         }
     }
     if { !$code_call_p } {
-        ad_returnredirect "${return_url}"
+        set community_id [dotlrn_community::get_community_id]
+        set imsld_package_id [site_node_apm_integration::get_child_package_id \
+                                  -package_id [dotlrn_community::get_package_id $community_id] \
+                                  -package_key "[imsld::package_key]"]
+        ad_returnredirect "[export_vars -base "[lindex [site_node::get_url_from_object_id -object_id $imsld_package_id] 0]/imsld-tree" -url { imsld_id }]"
     }
 }