Index: openacs-4/contrib/packages/simulation/lib/object-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/object-display.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/lib/object-display.tcl	14 Oct 2003 13:58:03 -0000	1.1
+++ openacs-4/contrib/packages/simulation/lib/object-display.tcl	14 Oct 2003 14:59:50 -0000	1.2
@@ -25,6 +25,8 @@
     array set current_item [bcms::revision::get_revision -revision_id $revision_id]
 }
 
+item::get_revision_content $current_item(revision_id)
+
 # TODO: Render using template
 #set rendered [publish::merge_with_template $current_item(item_id)]
 
@@ -45,7 +47,7 @@
 set page_title $current_item(title)
 set context [list [list ../object-list "Objects"] $page_title]
 
-foreach name [array names current_item] {
-    multirow append attributes $name $current_item($name)
+foreach name [lsort [array names content]] {
+    multirow append attributes $name $content($name)
 }