Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -N -r1.36 -r1.37
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	13 Dec 2017 20:42:31 -0000	1.36
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	21 Mar 2018 18:48:13 -0000	1.37
@@ -153,13 +153,12 @@
     foreach p [::xo::PackageMgr allinstances] {
       # Sanity check for old apps, having not set the package key.
       # TODO: remove this in future versions, when package_keys are enforced
-      if {![$p exists package_key]} {
-        ns_log notice "!!! You should provide a package_key for $p [$p info class] !!!"
-        continue
-      }
+      #if {![$p exists package_key]} {
+      #  ns_log notice "!!! You should provide a package_key for $p [$p info class] !!!"
+      #  continue
+      #}
       if {[$p package_key] eq $package_key} {
-        set $key $p
-        return $p
+        return [set $key $p]
       }
     }