Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	7 Jun 2006 14:37:23 -0000	1.14
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	7 Jun 2006 18:44:04 -0000	1.15
@@ -602,6 +602,7 @@
     
     # Get the root items
     set count 0
+    set items_list [list]
     foreach ims_item_id [db_list get_root_item "select ims_item_id from ims_cp_items where parent_item = :org_id and org_id = :org_id"] {
 	lappend items_list [list $ims_item_id 1]
 	set items_array($ims_item_id) 1