Index: library/tcl-cool/tcl-cool.tcl
===================================================================
diff -u -rc6057c18970d5bc19fe0f1f760ef0d29898ecfdd -r8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf
--- library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision c6057c18970d5bc19fe0f1f760ef0d29898ecfdd)
+++ library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision 8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf)
@@ -113,7 +113,7 @@
   # is created. First the object is allocated, then the constructor is called.
   #
   class method create {name args} {
-    set obj [::nsf::object::dispatch [self] ::nsf::methods::class::alloc $name]
+    set obj [::nsf::dispatch [self] ::nsf::methods::class::alloc $name]
     $obj init {*}$args
     return $obj
   }