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.91 -r1.92
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	10 Sep 2008 08:51:24 -0000	1.91
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Sep 2008 15:59:31 -0000	1.92
@@ -1719,7 +1719,7 @@
   }
 
   event instproc initialize {} {
-    #my msg "EVENT has value [my value]"
+    if {[my exists __initialized]} return
     my set widget_type event
     my set structure {
       {summary {richtext,required,editor=wym,height=150px,label=#xowiki.event-title_of_lecture#}}
@@ -1738,9 +1738,13 @@
       my set component_index([my name].$name) $c
       my lappend components $c
     }
+    my set __initialized 1
   }
 
   event instproc get_compound_value {} {
+    if {![my exists __initialized]} {
+      return ""
+    }
     set dtstart  [my get_component dtstart]
     set dtend    [my get_component dtend]
     set end_day  [lindex [$dtstart value] 0]