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.472.2.14 -r1.472.2.15
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Apr 2014 18:37:34 -0000	1.472.2.14
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Apr 2014 06:33:15 -0000	1.472.2.15
@@ -493,7 +493,7 @@
     # necessary to move e.g. category definitions into the global form
     # constraints.
     #
-    if {$mode eq "copy" && ![string match *revision_id* [my set instance_attributes]]} {
+    if {$mode eq "copy" && ![string match "*revision_id*" [my set instance_attributes]]} {
       return [next]
     }
     set form_fields [my create_form_fields_from_form_constraints \
@@ -3233,7 +3233,7 @@
                  -named_objects $named_objects -object_named_after "item_id" \
                  -object_class ::xowiki::FormPage -initialize $initialize]
 
-  if {!$use_hstore && $wc(tcl) ne "true"} {
+  if {!$use_hstore && $wc(tcl) != "true"} {
     # Make sure, that the expr method is available; 
     # in xotcl 2.0 this will not be needed
     ::xotcl::alias ::xowiki::FormPage expr -objscope ::expr