Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.49.2.1 -r1.49.2.2
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	18 Aug 2015 12:46:18 -0000	1.49.2.1
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	3 Oct 2015 18:28:39 -0000	1.49.2.2
@@ -273,7 +273,7 @@
   set ::subscription_count 0
   set ::message_count 0
 
-  ::xotcl::Class Subscriber -parameter {key channel user_id mode}
+  ::xotcl::Class create Subscriber -parameter {key channel user_id mode}
   Subscriber proc current {-key } {
     my instvar subscriptions
     set result [list]
@@ -399,7 +399,7 @@
   # HttpSpooler
   ###############
 
-  Class ::HttpSpooler -parameter {channel {timeout 10000} {counter 0}}
+  Class create ::HttpSpooler -parameter {channel {timeout 10000} {counter 0}}
   ::HttpSpooler instproc init {} {
     my set running 0
     my set release 0