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.215 -r1.216
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Mar 2008 11:54:11 -0000	1.215
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Mar 2008 13:07:41 -0000	1.216
@@ -1292,7 +1292,7 @@
       #my log  "-- fetching page_template = $page_template"
       ::xo::db::CrClass get_instance_from_db -item_id $form_id
     }
-    #my msg "form_id=$form_id, [$form_id name]"
+    #my msg "form_id=$form_id, [$form_id name] $var?[::$form_id exists $var]"
     if {[::$form_id exists $var]} {return [::$form_id set $var]}
     return ""
   }
@@ -1460,7 +1460,7 @@
     next
   }
 
-  FormPage instproc property {name} {
+  FormPage instproc property {name {default ""}} {
     if {[string match "_*" $name]} {
       set key [string range $name 1 end]
     } {
@@ -1469,7 +1469,7 @@
     if {[my exists $key]} {
       return [my set $key]
     }
-    return ""
+    return $default
   }
 
   FormPage instproc footer {} {