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 -r1.89 -r1.90
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	4 Sep 2007 13:30:26 -0000	1.89
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	5 Sep 2007 23:04:59 -0000	1.90
@@ -117,11 +117,9 @@
           -object_id $package_id \
           -privilege $privilege
     }
-    if {$privilege eq "create"} {
-      set edit_form_page_title [my add_page_title]
-    } {
-      set edit_form_page_title [my edit_page_title]
-    }
+    set edit_form_page_title [if {$privilege eq "create"} \
+		 {my add_page_title} {my edit_page_title}]
+
     set context [list $edit_form_page_title]
   }