Index: openacs-4/packages/imsld/www/imsld-tree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-tree.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/imsld/www/imsld-tree.tcl	29 Sep 2006 10:28:03 -0000	1.12
+++ openacs-4/packages/imsld/www/imsld-tree.tcl	16 Oct 2006 15:07:12 -0000	1.13
@@ -30,7 +30,7 @@
 regsub -all " " $possible_user_role_names "" $possible_user_role_names
 
 # if there is only one role, set it
-set current_role_id [expr { [llength $possible_user_roles] == 1 ? [lindex $possible_user_roles 0] : "" }]
+set current_role_id [expr { [llength $possible_user_roles] == 1 ? [lindex $possible_user_roles 0] : "$current_role_id" }]
 
 if { ![empty_string_p $current_role_id] } {
     # a role has been selected, update in db