Index: openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/map-characters.tcl,v
diff -u -N -r1.17.2.1 -r1.17.2.2
--- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	22 Mar 2004 15:00:11 -0000	1.17.2.1
+++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl	1 Jun 2004 14:55:47 -0000	1.17.2.2
@@ -32,9 +32,12 @@
     select sc.title,
            sc.item_id
     from   sim_charactersx sc,
+           cr_items ci,
            acs_objects ao
     where  sc.item_id = ao.object_id
-      and  (sc.in_directory_p = 't' or ao.creation_user = :user_id)
+    and    ci.item_id = sc.item_id 
+    and    ci.live_revision = sc.object_id
+    and    (sc.in_directory_p = 't' or ao.creation_user = :user_id)
     order by sc.title
 }]
 
Index: openacs-4/packages/simulation/www/siminst/map-characters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-characters.tcl,v
diff -u -N -r1.17.2.1 -r1.17.2.2
--- openacs-4/packages/simulation/www/siminst/map-characters.tcl	22 Mar 2004 15:00:11 -0000	1.17.2.1
+++ openacs-4/packages/simulation/www/siminst/map-characters.tcl	1 Jun 2004 14:55:47 -0000	1.17.2.2
@@ -32,9 +32,12 @@
     select sc.title,
            sc.item_id
     from   sim_charactersx sc,
+           cr_items ci,
            acs_objects ao
     where  sc.item_id = ao.object_id
-      and  (sc.in_directory_p = 't' or ao.creation_user = :user_id)
+    and    ci.item_id = sc.item_id 
+    and    ci.live_revision = sc.object_id
+    and    (sc.in_directory_p = 't' or ao.creation_user = :user_id)
     order by sc.title
 }]