Index: openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	13 Nov 2008 23:59:08 -0000	1.8
+++ openacs-4/packages/imsld/tcl/imsld-monitor-procs.tcl	5 Feb 2009 17:18:18 -0000	1.9
@@ -191,11 +191,11 @@
                                                 -act_id $act_id \
                                                 -dom_node $structure_node \
                                                 -dom_doc $dom_doc]
-                set ul_node [$dom_doc createElement ul]
-                foreach nested_activity $nested_activities_list {
-                    $ul_node appendFromList $nested_activity
-                }
-                $structure_node appendChild $ul_node
+		set ul_node [$dom_doc createElement ul]	    
+		foreach nested_activity $nested_activities_list {
+		    $ul_node appendFromList $nested_activity
+		}
+		$structure_node appendChild $ul_node
                 set completed_list [linsert $completed_list $sort_order [$structure_node asList]]
             }
         }
@@ -324,7 +324,9 @@
                                      -dom_doc $dom_doc \
                                      -dom_node $dom_node]
                 # the nested finished activities are returned as a tcl list in tDOM format
-                $structure_node appendFromList [list ul [list] [concat [list] $nested_list]]
+		if {[llength $nested_list]} {
+		    $structure_node appendFromList [list ul [list] [concat [list] $nested_list]]
+		}
                 $dom_node appendChild $structure_node
             }
         }
Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -N -r1.111 -r1.112
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	19 Dec 2008 18:57:01 -0000	1.111
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	5 Feb 2009 17:18:18 -0000	1.112
@@ -3717,8 +3717,10 @@
 } {
     set list_node [$dom_doc createElement ul]
     set linear_item_list [db_list item_linear_list { *SQL* }]
+    set has_items 0
     foreach imsld_item_id $linear_item_list {
         foreach sa_items_list [db_list_of_lists la_nested_associated_items { *SQL* }] {
+	    set has_items 1
             set resource_id [lindex $sa_items_list 0]
             set resource_item_id [lindex $sa_items_list 1]
             set resource_type [lindex $sa_items_list 2]
@@ -3747,7 +3749,7 @@
 	$li_node appendChild $choose_node
 	$li_node appendChild [$dom_doc createTextNode {]}]
     }
-    if { [llength $linear_item_list ] > 0 } { $dom_node appendChild $list_node }
+    if { $has_items } { $dom_node appendChild $list_node }
 
 #     set aux [$dom_doc createElement ul]
 #     set aux2 [$dom_doc createElement li]