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.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	25 Jan 2009 10:49:17 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	26 Jan 2009 20:53:27 -0000	1.19
@@ -151,6 +151,7 @@
     if {$package_id eq ""} {error "package_id must not be empty"}
 
     #my log "--R $package_id exists? [my isobject ::$package_id] url='$url'"
+
     if {![my isobject ::$package_id]} {
       #my log "--R we have to create ::$package_id //url='$url'"
       #
@@ -245,7 +246,7 @@
     if {[my exists url] && [info exists root]} {
       regexp "^${root}(.*)$" $url _ url
     } elseif {![my exists url]} {
-      my log "--R we have no url, use package_url"
+      #my log "--R we have no url, use package_url"
       # if we have no more information, we use the package_url as actual url
       set url $package_url
     } 
Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	25 Jan 2009 10:49:17 -0000	1.46
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	26 Jan 2009 20:53:27 -0000	1.47
@@ -180,8 +180,10 @@
     # get package_id from url in case it is not known
     if {$package_id == 0 || ![info exists ::ad_conn(node_id)]} {
       array set "" [site_node::get_from_url -url $url]
-      set package_id $(package_id)
-      #my msg "--i setting pkg to $package_id"
+      if {$package_id == 0} {
+	set package_id $(package_id)
+	#my msg "--i setting pkg to $package_id"
+      }
       # 
       # The following should not be necessary, but is is here for
       # cases, where some oacs-code assumes wrongly it is running in a