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