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.8 -r1.9
--- openacs-4/packages/simulation/lib/object-display.tcl	3 Nov 2003 14:13:42 -0000	1.8
+++ openacs-4/packages/simulation/lib/object-display.tcl	14 Nov 2003 09:48:54 -0000	1.9
@@ -12,7 +12,7 @@
 set root_id [bcms::folder::get_id_by_package_id -parent_id 0]
 
 # This little exercise removes the object/ part from the extra_url
-set extra_url [eval file join [lrange [file split [ad_conn extra_url]] 1 end]]
+set extra_url [eval file join [lrange [file split [ad_conn extra_url]] 2 end]]
 
 if { [empty_string_p $extra_url] } {
     set extra_url "index"
@@ -24,6 +24,7 @@
 } else {
     array set item [bcms::revision::get_revision -revision_id $revision_id]
 }
+
 item::get_content \
     -revision_id $item(revision_id) \
     -array content