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.311 -r1.312
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Mar 2018 11:37:02 -0000	1.311
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	6 Apr 2018 16:06:32 -0000	1.312
@@ -610,7 +610,7 @@
       set package_class [::xo::PackageMgr get_package_class_from_package_key $(package_key)]
       if {$package_class ne ""} {
         # we found an xo::Package, but is it an xowiki package?
-        set classes [concat $package_class [$package_class info heritage]]
+        set classes [list $package_class {*}[$package_class info heritage]]
         if {"::xowiki::Package" in $classes} {
           # yes, it is an xowiki::package, compute the name and return the package_id
           ::xowiki::Package require $package_id
@@ -2467,7 +2467,7 @@
       set object_type [::xo::db::CrClass get_object_type -item_id $item_id]
       # In case of PageTemplate and subtypes, we need to check
       # for pages using this template
-      set classes [concat $object_type [$object_type info heritage]]
+      set classes [list $object_type {*}[$object_type info heritage]]
       if {"::xowiki::PageTemplate" in $classes} {
         set count [::xowiki::PageTemplate count_usages -item_id $item_id -publish_status all]
         if {$count > 0} {