Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	19 May 2006 17:26:02 -0000	1.3
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	29 May 2006 15:10:52 -0000	1.4
@@ -229,8 +229,9 @@
     -user_id
     -run_id 
 } {
-    Returns a list with all the roles_id from which the user are member. If imsld_id is given, restrict the list to the roles of the imsld.
+    Returns a list with all the roles_id from which the user are member. If run_id is given, restrict the list to the roles of the run.
 } {
+    set roles_list [list]
     if {[info exist run_id]} {
         set roles_list [db_list get_user_roles_list {}]
     } else {