Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.93.2.38 -r1.93.2.39
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 Mar 2021 15:06:01 -0000	1.93.2.38
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Jul 2021 12:33:57 -0000	1.93.2.39
@@ -228,9 +228,9 @@
   #
   set form [rp_getform]
   ns_set update $form object [self]
-  ns_set update $form show_source    [::xo::cc query_parameter "show_source" 1]
-  ns_set update $form show_methods   [::xo::cc query_parameter "show_methods" 2]
-  ns_set update $form show_variables [::xo::cc query_parameter "show_variables" 1]
+  ns_set update $form show_source    [::xo::cc query_parameter show_source:integer 1]
+  ns_set update $form show_methods   [::xo::cc query_parameter show_methods:integer 2]
+  ns_set update $form show_variables [::xo::cc query_parameter show_variables:integer 1]
   rp_internal_redirect /packages/xotcl-core/www/show-object
   ad_script_abort
 }
Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -N -r1.41.2.38 -r1.41.2.39
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	23 Mar 2021 14:46:16 -0000	1.41.2.38
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	29 Jul 2021 12:33:57 -0000	1.41.2.39
@@ -706,7 +706,7 @@
         ::xo::db::Attribute create default_locale -datatype string -sqltype varchar(30)
       } \
       -parameter {
-        id
+        {id:integer}
         url
         {context ::xo::cc}
         package_url
@@ -738,6 +738,7 @@
                     -use_prototype_pages true \
                     -use_package_path true \
                     -parent_id $parent_id \
+                    -default_lang $default_lang \
                     $item_ref]
       #:log "weblog form $item_ref => $page"
       if {$page ne ""} {