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.6 -r1.6.2.1 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 27 Feb 2008 16:44:25 -0000 1.6 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 18 Apr 2008 20:20:04 -0000 1.6.2.1 @@ -184,8 +184,17 @@ my set_url -url $url my set mime_type text/html my set delivery ns_return + set target_class ::$info(package_key)::Package + if {[my info class] ne $target_class && [my isclass $target_class]} { + my class $target_class + } + my initialize } - + + ::xo::Package instproc initialize {} { + # empty hook for user level initialization + } + ::xo::Package instproc set_url {-url} { my url $url my set object [string range [my url] [string length [my package_url]] end]