Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.276 -r1.277
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	5 Aug 2013 18:13:45 -0000	1.276
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Aug 2013 18:22:30 -0000	1.277
@@ -1381,7 +1381,7 @@
     # @parm with_package_prefix flag, if provided url contains package-url
     # @return item ref data (parent_id lang stripped_name method)
     #
-    if {$with_package_prefix && [string match /* $url]} {
+    if {$with_package_prefix && [string match "/*" $url]} {
       set url [string range $url [string length [my package_url]] end]
     }
     if {$default_lang eq ""} {set default_lang [my default_language]}
@@ -1455,7 +1455,7 @@
     #
     #my log "get_page_from_item_ref [self args]"
 
-    if {$allow_cross_package_item_refs && [string match //* $link]} {
+    if {$allow_cross_package_item_refs && [string match "//*" $link]} {
 
       # todo check: get_package_id_from_page_name uses a different lookup based on site nodes 
 
Index: openacs-4/packages/xowiki/tcl/repeat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/repeat-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xowiki/tcl/repeat-procs.tcl	24 Jun 2013 16:15:55 -0000	1.1
+++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl	12 Aug 2013 18:22:30 -0000	1.2
@@ -63,8 +63,8 @@
     set is_required false
     foreach s [split [my spec] ,] {
       # don't propagate "repeat" and "label" properties
-      if { [string match repeat=* $s] || [string match label=* $s] } continue
-      if { [string match required $s]} {set is_required true; continue}
+      if { [string match "repeat=*" $s] || [string match "label=*" $s] } continue
+      if { "required" eq $s} {set is_required true; continue}
       lappend result $s
     }
     return [list $is_required [join $result ,]]
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.318 -r1.319
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	7 Aug 2013 17:21:28 -0000	1.318
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	12 Aug 2013 18:22:30 -0000	1.319
@@ -483,7 +483,7 @@
     set full_file_name [my full_file_name]
     #my log "--F FILE=$full_file_name // $mime_type"
     set geometry [::xo::cc query_parameter geometry ""]
-    if {[string match image/* $mime_type] && $geometry ne ""} {
+    if {[string match "image/*" $mime_type] && $geometry ne ""} {
       if {![file isdirectory /tmp/$geometry]} {
 	file mkdir /tmp/$geometry
       }