Index: openacs-4/packages/file-manager/tcl/file-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/tcl/file-manager-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	10 Sep 2002 22:22:54 -0000	1.2
+++ openacs-4/packages/file-manager/tcl/file-manager-procs.tcl	10 Oct 2003 15:44:32 -0000	1.3
@@ -10,11 +10,15 @@
 }
 
 proc fm_pageroot_relative_path {path} {
+    set match ""
+    set local ""
     regexp "[ns_info pageroot](.+)" $path match local
     return $local
 }
 
 proc fm_acs_root_relative_path {path} {
+    set match ""
+    set relative ""
     regexp "[acs_root_dir](.+)" $path match relative
     return $relative
 }