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 -r1.24 -r1.25
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	30 Nov 2009 10:20:53 -0000	1.24
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	18 Mar 2010 10:03:56 -0000	1.25
@@ -228,7 +228,7 @@
  
   ::xo::Package instproc init args {
     my instvar id url
-    set package_url [site_node::get_url_from_object_id -object_id $id]
+    set package_url [lindex [site_node::get_url_from_object_id -object_id $id] 0]
     #my log "--R creating package_url='$package_url'"
     if {$package_url ne ""} {
       array set info [site_node::get -url $package_url]