Index: library/tcl-cool/tcl-cool.tcl
===================================================================
diff -u -re3a84e351aaf79c02a63cc0741dde7b9bd550849 -rc6057c18970d5bc19fe0f1f760ef0d29898ecfdd
--- library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision e3a84e351aaf79c02a63cc0741dde7b9bd550849)
+++ library/tcl-cool/tcl-cool.tcl	(.../tcl-cool.tcl)	(revision c6057c18970d5bc19fe0f1f760ef0d29898ecfdd)
@@ -25,7 +25,7 @@
 #
 # Two unexported commands for OO-language designer
 #   ::nsf::alias
-#   ::nsf::createobjectsystem
+#   ::nsf::objectsystem::create
 #   ::nsf::forward
 #   ::nsf::method
 #   ::nsf::relation
@@ -61,7 +61,7 @@
   # In a first step, we create two base classes of TclCOOL, 
   # namely "object" and "class" in the current namespace:
 
-  ::nsf::createobjectsystem object class
+  ::nsf::objectsystem::create object class
 
   # We have now the two base classes defined as Tcl commands. Now we
   # can define methods for these newly defined classes
@@ -113,7 +113,7 @@
   # is created. First the object is allocated, then the constructor is called.
   #
   class method create {name args} {
-    set obj [::nsf::dispatch [self] ::nsf::methods::class::alloc $name]
+    set obj [::nsf::object::dispatch [self] ::nsf::methods::class::alloc $name]
     $obj init {*}$args
     return $obj
   }