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.284.2.37 -r1.284.2.38
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	15 Oct 2019 21:12:11 -0000	1.284.2.37
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	18 Oct 2019 08:30:41 -0000	1.284.2.38
@@ -1115,7 +1115,9 @@
   }
   import_archive instproc initialize {} {
     next
-    if {[:help_text] eq ""} {:help_text "#xowiki.formfield-import_archive-help_text#"}
+    if {${:help_text} eq ""} {
+      set :help_text "#xowiki.formfield-import_archive-help_text#"
+    }
   }
   import_archive instproc pretty_value {v} {
     set package_id [${:object} package_id]
@@ -1278,6 +1280,20 @@
 
   ###########################################################
   #
+  # ::xowiki::formfield::correct_when
+  #
+  ###########################################################
+
+  Class create correct_when -superclass text
+  correct_when instproc initialize {} {
+    next
+    if {${:help_text} eq ""} {
+      set :help_text "#xowiki.formfield-correct_when-help_text#"
+    }    
+  }
+  
+  ###########################################################
+  #
   # ::xowiki::formfield::color
   #
   ###########################################################
@@ -3204,7 +3220,9 @@
 
   youtube_url instproc initialize {} {
     next
-    if {[:help_text] eq ""} {:help_text "#xowiki.formfield-youtube_url-help_text#"}
+    if {${:help_text} eq ""} {
+      set :help_text "#xowiki.formfield-youtube_url-help_text#"
+    }
   }
   youtube_url instproc pretty_value {v} {
     if {$v eq ""} {
@@ -3237,7 +3255,9 @@
       }
   image_url instproc initialize {} {
     next
-    if {[:help_text] eq ""} {:help_text "#xowiki.formfield-image_url-help_text#"}
+    if {${:help_text} eq ""} {
+      set :help_text "#xowiki.formfield-image_url-help_text#"
+    }
   }
   image_url instproc entry_name {value} {
     set value [string map [list %2e .] $value]