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.225 -r1.226
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	10 Apr 2008 09:20:29 -0000	1.225
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	10 Apr 2008 12:05:47 -0000	1.226
@@ -1512,6 +1512,14 @@
     return $value
   }
 
+  FormPage instproc get_property {-source -name:required {-default ""}} {
+    if {![info exists source]} {
+      set page [self]
+    } else {
+      set page [my resolve_included_page_name $source]
+    }
+    return [$page property $name $default]
+  }
 
   FormPage instproc footer {} {
     if {[my exists __no_form_page_footer]} {