Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	27 Oct 2014 16:42:01 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	7 Aug 2017 23:48:30 -0000	1.8
@@ -21,7 +21,7 @@
     foreach n [ns_cache names $cache $pattern] {ns_cache flush $cache $n}
   }
 
-  Class Cluster -parameter {host {port 80}}
+  Class create Cluster -parameter {host {port 80}}
   Cluster set allowed_host_patterns [list]
   Cluster set url /xotcl-cluster-do 
   Cluster array set allowed_host {