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.77 -r1.78
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	1 Jul 2007 14:48:38 -0000	1.77
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	4 Jul 2007 09:22:33 -0000	1.78
@@ -262,7 +262,7 @@
 	unset default
       }
       if {$::xotcl::version < 1.5} {
-        my parameter $parameters
+        my parameter [concat [my info parameter] $parameters]
       }
     }
   }
Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.66 -r1.67
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Jul 2007 15:28:38 -0000	1.66
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	4 Jul 2007 09:22:33 -0000	1.67
@@ -237,7 +237,7 @@
     }
 
     #my log "v=[ad_acs_version] 5.2] compare: [apm_version_names_compare [ad_acs_version] 5.2]"
-    if {[apm_version_names_compare [ad_acs_version] 5.2.99] == 1} {
+    if {[apm_version_names_compare [ad_acs_version] 5.3.0d4] == 1} {
       application_data_link::update_links_from \
           -object_id [$data set item_id] \
           -text [$data set text]
@@ -668,4 +668,4 @@
 
 
 
-}
\ No newline at end of file
+}
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.128 -r1.129
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	2 Jul 2007 11:45:30 -0000	1.128
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	4 Jul 2007 09:22:33 -0000	1.129
@@ -41,6 +41,17 @@
 
   # TODO: the following slot definitions are not meant to stay this way.
   # when we change to the xotcl 1.5.0+ slots, this will go away
+  if {$::xotcl::version < 1.5} {
+     if {![::xotcl::Object isobject ::xowiki::Page::slot]} {
+        ::xotcl::Object create ::xowiki::Page::slot
+     }
+     foreach parameter {name title description text nls_language} {
+        if {![::xotcl::Object isobject ::xowiki::Page::slot::$parameter]} {
+          ::xo::Attribute create ::xowiki::Page::slot::$parameter 
+        }
+     }
+  }
+
   ::xowiki::Page::slot::name set pretty_name #xowiki.Page-name#
   ::xowiki::Page::slot::name set required true
   ::xowiki::Page::slot::name set help_text #xowiki.Page-name-help_text#