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.7
--- 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:09:30 -0000	1.7
@@ -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]