Index: tests/tcloo.test
===================================================================
diff -u -r5ce68a42506fcc981cea2431afa1b09b476e667a -r4bc60e16c10fdbbb640b3019d4bdebdc469fdf55
--- tests/tcloo.test	(.../tcloo.test)	(revision 5ce68a42506fcc981cea2431afa1b09b476e667a)
+++ tests/tcloo.test	(.../tcloo.test)	(revision 4bc60e16c10fdbbb640b3019d4bdebdc469fdf55)
@@ -84,14 +84,14 @@
 }
 nx::Class mixin add ExportUnexportUtil
 
-nx::Test case export {
+nx::test case export {
   #
   # Exporting existing, non-inherited method (see TclOO tests,
   # oo.test, oo-4.1)
   #
   
   set o [nx::Object new]
-  $o method Foo {} { return [::nsf::current method]} 
+  $o object method Foo {} { return [::nsf::current method]} 
   ? [list $o Foo] "$o: unable to dispatch method 'Foo'"
   ? [list $o eval {:Foo}] Foo
   $o export Foo
@@ -164,7 +164,7 @@
 
   nx::Object create bran {
     :export foo
-    :public method foo {} {return ok}
+    :public object method foo {} {return ok}
   }
 
   ? {bran foo} ok
@@ -175,7 +175,7 @@
 
 }
 
-nx::Test case unexport {
+nx::test case unexport {
 
   # A solitary, preemptive [unexport]: see description for the
   # corresponding [export] case
@@ -191,7 +191,7 @@
   # oo.test/oo-4.2)
   #
   set o [nx::Object new]
-  $o public method foo {} { return [::nsf::current method]} 
+  $o public object method foo {} { return [::nsf::current method]} 
   ? [list $o foo] foo
   ? [list $o eval {:foo}] foo
   $o unexport foo
@@ -267,4 +267,13 @@
   ? {AbstractQueue new} {method 'new' unknown for ::AbstractQueue; consider '::AbstractQueue create new ' instead of '::AbstractQueue new '}
   ? {AbstractQueue create aQueue} {method 'create' unknown for ::AbstractQueue; consider '::AbstractQueue create create aQueue' instead of '::AbstractQueue create aQueue'}
   
-}
\ No newline at end of file
+}
+
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End:
+