Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.93 -r1.94
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	13 Sep 2008 19:08:26 -0000	1.93
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	16 Sep 2008 11:54:59 -0000	1.94
@@ -1037,7 +1037,7 @@
     next
   }
   
-  abstract_page instproc pretty_value {} {
+  abstract_page instproc pretty_value {v} {
     my instvar package_prefix package_id
 
     if {[my multiple]} {
@@ -1079,7 +1079,7 @@
   }
   form_page instproc compute_options {} {
     my instvar form_obj package_prefix where
-    
+    #my msg "[my name] compute_options [my exists form]"
     if {![my exists form]} {
       return
     }
@@ -1112,7 +1112,7 @@
     if {![my exists form_obj]} {
       error "No form specified for form_field [my name]"
     }
-    my set package_id [$form_obj package_id]
+    my set package_id [[my set form_obj] package_id]
     next
   }