Index: openacs-4/packages/simulation/lib/object-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/object-display.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/simulation/lib/object-display.tcl	18 Nov 2003 13:31:31 -0000	1.11
+++ openacs-4/packages/simulation/lib/object-display.tcl	18 Nov 2003 14:22:55 -0000	1.12
@@ -84,8 +84,8 @@
 
 
 if { [permission::write_permission_p -object_id $item(item_id) -party_id [ad_conn untrusted_user_id]] } {
-    set edit_url [export_vars -base [ad_conn package_url]citybuild/object-edit { { item_id $item(item_id) } }]
-    set delete_url [export_vars -base [ad_conn package_url]object-delete { { item_id $item(item_id) } }]
+    set edit_url [export_vars -base [apm_package_url_from_id $package_id]citybuild/object-edit { { item_id $item(item_id) } }]
+    set delete_url [export_vars -base [apm_package_url_from_id $package_id]/citybuild/object-delete { { item_id $item(item_id) } }]
 }
 
 #####