Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.88 -r1.89
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	3 Sep 2007 21:06:42 -0000	1.88
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	4 Sep 2007 13:30:26 -0000	1.89
@@ -117,9 +117,11 @@
           -object_id $package_id \
           -privilege $privilege
     }
-      
-    set edit_form_page_title [expr {$privilege eq "create" ? 
-                   [my add_page_title] : [my edit_page_title]}]
+    if {$privilege eq "create"} {
+      set edit_form_page_title [my add_page_title]
+    } {
+      set edit_form_page_title [my edit_page_title]
+    }
     set context [list $edit_form_page_title]
   }
 
@@ -183,7 +185,7 @@
     my set $template [my name]
     my instvar data folder_id
     set object_type [[$data info class] object_type]
-    set object_name [expr {[$data exists name] ? [$data set name] : ""}]
+    if {[catch {set object_name [$data set name]}]} {set object_name ""}
     #my log "-- $data, cl=[$data info class] [[$data info class] object_type]"
     
     #my log "--e [my name] final fields [my fields]"