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]
Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	20 Apr 2009 14:05:32 -0000	1.12
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	18 Mar 2010 10:03:56 -0000	1.13
@@ -39,7 +39,7 @@
     if {![info exists package_id]} {set package_id [ad_conn package_id] }
     if {![info exists chat_id]}    {set chat_id $package_id }
     set context id=$chat_id&s=[ad_conn session_id].[clock seconds]
-    set path    [site_node::get_url_from_object_id -object_id $package_id]
+    set path    [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
     
     if {![info exists mode]} {
       set mode polling
Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	5 Mar 2010 18:18:55 -0000	1.33
+++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl	18 Mar 2010 10:03:56 -0000	1.34
@@ -133,7 +133,7 @@
     set folder_id [::$package_id folder_id]
 
     if {$description eq ""} {set description [::$folder_id set description]}
-    my set link $siteurl[site_node::get_url_from_object_id -object_id $package_id]
+    my set link $siteurl[lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
     
     set base_table xowiki_pagex 
     set extra_where_clause [my extra_where_clause]
@@ -250,7 +250,7 @@
     if {$summary  eq ""} {set summary $description}
     if {$subtitle eq ""} {set subtitle $title}
 
-    my set link $siteurl[site_node::get_url_from_object_id -object_id $package_id]
+    my set link $siteurl[lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
     
     set content [my head]
     set sql [::xo::db::sql select \
Index: openacs-4/packages/xowiki/www/portlet-ajax.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlet-ajax.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/www/portlet-ajax.tcl	28 Sep 2007 20:34:07 -0000	1.2
+++ openacs-4/packages/xowiki/www/portlet-ajax.tcl	18 Mar 2010 10:03:56 -0000	1.3
@@ -4,5 +4,5 @@
 if {![string match "/*" $portlet]} {
   set folder_id [$__including_page set parent_id]
   set package_id [$folder_id set package_id]
-  set portlet [site_node::get_url_from_object_id -object_id $package_id]portlets/$portlet
+  set portlet [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]portlets/$portlet
 }
Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	23 Dec 2008 11:34:59 -0000	1.12
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	18 Mar 2010 10:03:56 -0000	1.13
@@ -96,7 +96,7 @@
   set root_folder_id [fs_get_root_folder -package_id $fs_package_id]
 }
 
-set fs_url [site_node::get_url_from_object_id -object_id $fs_package_id]
+set fs_url [lindex [site_node::get_url_from_object_id -object_id $fs_package_id] 0]
 
 # # Don't allow delete if root folder
 set root_folder_p [expr {$folder_id == $root_folder_id}]