Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	6 May 2008 12:36:07 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	28 Aug 2008 19:25:39 -0000	1.8
@@ -243,7 +243,11 @@
     -default
   } {
     if {![info exists package_id]} {
-      set package_id [expr {[info command ::xo::cc] ne "" ? [::xo::cc package_id] : [ad_conn package_id]}]
+      # try to get the package id; 
+      # if everything fails, use kernel_id (to be compatible with trad. parameter::get)
+      set package_id [expr {[info command ::xo::cc] ne "" ? 
+		    [::xo::cc package_id] : 
+		    [ns_conn isconnected] ? [ad_conn package_id] : [ad_acs_kernel_id]}]
     }
     set parameter_obj [my get_parameter_object -parameter_name $parameter -package_id $package_id]
     if {$parameter_obj eq ""} {