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.7 -r1.8
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	18 May 2005 07:45:24 -0000	1.7
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	20 May 2005 20:29:23 -0000	1.8
@@ -576,13 +576,13 @@
 }
 
 ad_proc -public lorsm::get_root_folder_id { } { } {
-    return [db_string get_root_folder { select folder_id from cr_folders where label = 'LORSM Root Folder' }]
+    return [db_string get_root_folder { select folder_id from cr_folders where label = 'LORSM Root Folder' } -default ""]
 }    
 
 ad_proc -public lorsm::get_folder_id { 
     -name:required
 } {
-    return [db_string get_root_folder { select folder_id from cr_folders where label = :name }]
+    return [db_string get_root_folder { select folder_id from cr_folders where label = :name } -default ""]
 }    
 
 ad_proc -public lorsm::get_items_indent {