Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.320.2.24 -r1.320.2.25 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 27 Jan 2015 12:28:42 -0000 1.320.2.24 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 29 Jan 2015 11:14:04 -0000 1.320.2.25 @@ -1646,14 +1646,14 @@ # So, when we have configured properties, we use it, use the # primitive one just on despair. Not sure, what the best solution # is,... maybe an additional flag. - if {[string trim $spec] eq ""} { + if {[string trim $spec ,] eq ""} { set short_spec [my get_short_spec $name] #my log "[self] get_short_spec $name returns <$short_spec>" } else { set short_spec "" } - #my msg "create form-field '$name', short_spec = '$short_spec', slot=$slot" + #my log "create form-field '$name', short_spec '$short_spec' spec '$spec', slot=$slot" set spec_list [list] if {$spec ne ""} {lappend spec_list $spec} if {$short_spec ne ""} {lappend spec_list $short_spec}