Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	23 May 2011 10:40:07 -0000	1.3
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	26 May 2011 11:27:48 -0000	1.4
@@ -509,9 +509,14 @@
         set page_link [::$package_id pretty_link -parent_id $logical_folder_id $name]
 	array set icon [$c render_icon]
 
+	if {[catch {set prettyName [$c pretty_name]} errorMsg]} {
+	  my msg "can't obtain pretty name of [$c item_id] [$c name]: $errorMsg"
+	  set prettyName $name
+	}
+
         $t add \
             -ID [$c name] \
-            -name [$c pretty_name] \
+            -name $prettyName \
 	    -name.href [export_vars -base $page_link {template_file}] \
             -name.title [$c set title] \
             -object_type $icon(text) \