Index: openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl	22 Nov 2010 12:19:19 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/upgrade/upgrade.tcl	20 May 2011 09:52:45 -0000	1.5
@@ -558,5 +558,21 @@
 	}
       }
     }
+
+    set v 0.138
+    if {[apm_version_names_compare $from_version_name $v] == -1 &&
+        [apm_version_names_compare $to_version_name $v] > -1} {
+        ns_log notice "-- upgrading to $v"
+        
+        foreach object_type {PlainPage Page File PodcastItem PageTemplate PageInstance Object Form FormPage} {
+            set pretty_name_key "#xowiki.${object_type}_pretty_name#"
+            set pretty_plural_key "#xowiki.${object_type}_pretty_plural#"
+            set xowiki_object_type "::xowiki::${object_type}"
+            db_dml i18_name "
+                update acs_object_types set pretty_name = :pretty_name_key, pretty_plural = :pretty_plural_key
+                where object_type = :xowiki_object_type
+            "
+        }
+    }
   }
 }