Index: openacs-4/packages/imsld/lib/activity.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/activity.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/imsld/lib/activity.tcl	18 Feb 2009 19:01:13 -0000	1.1
+++ openacs-4/packages/imsld/lib/activity.tcl	25 Mar 2009 19:16:11 -0000	1.2
@@ -91,7 +91,6 @@
 	     || ([string eq $complete_act_id ""] && [string eq $is_visible_p "t"]
 		 && [lsearch -exact $active_acts_list $act_item_id] != -1) } {
 
-	    set activity_node [$dom_doc createElement li]
 	    $activity_node setAttribute class "liOpen"
 	    if { !$started_activity_p && [string eq $is_visible_p "t"] } {
 		# bold letters
Index: openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl	17 Apr 2008 17:17:54 -0000	1.3
+++ openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl	25 Mar 2009 19:16:11 -0000	1.4
@@ -21,7 +21,9 @@
 $dom_root setAttribute style "white-space: nowrap;"
 
 # Create the li nodes for each environment
-set activity_item_id [content::revision::item_id -revision_id $activity_id]
+# set activity_item_id [content::revision::item_id -revision_id
+# $activity_id]
+set activity_item_id $activity_id
 imsld::monitor::activity_environments_tree -activity_item_id $activity_item_id \
     -run_id $run_id \
     -dom_node $dom_root \