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.13 -r1.14
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	26 Jul 2006 14:37:27 -0000	1.13
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	20 Sep 2006 08:26:30 -0000	1.14
@@ -125,6 +125,7 @@
 
         set role_item [lindex $role_item_par 0]
         set depth [lindex $role_item_par 1]
+        set depth [expr { [string eq $depth ""] ? 0 : $depth }]
 
         db_1row get_role_name {}
         if {![string eq "" $name]} {