Index: generic/gentclAPI.decls
===================================================================
diff -u -r25de23e98a24210b149179c5d1f52836a65fddab -r7050a52ac53992d9a3aec12e48b0fa58a26449e6
--- generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 25de23e98a24210b149179c5d1f52836a65fddab)
+++ generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision 7050a52ac53992d9a3aec12e48b0fa58a26449e6)
@@ -23,6 +23,11 @@
   {-argName "-per-object"}
   {-argName "cmdName" -required 1 -type tclobj}
 }
+xotclCmd assertion XOTclAssertionCmd {
+  {-argName "object" -type object}
+  {-argName "assertionsubcmd" -required 1 -type "check|object-invar|class-invar"}
+  {-argName "arg" -required 0 -type tclobj}
+}
 xotclCmd configure XOTclConfigureCmd {
   {-argName "configureoption" -required 1 -type "filter|softrecreate|cacheinterface"}
   {-argName "value" -required 0 -type tclobj}
@@ -39,6 +44,7 @@
 xotclCmd dispatch XOTclDispatchCmd {
   {-argName "object" -required 1 -type object}
   {-argName "-objscope"}
+  {-argName "-noassertions"}
   {-argName "command" -required 1 -type tclobj}
   {-argName "args"  -type args}
 }
@@ -109,9 +115,6 @@
   {-argName "-reset"}
   {-argName "name" -required 1 -type tclobj}
 }
-objectMethod check XOTclOCheckMethod {
-  {-argName "flag" -required 1 -type tclobj}
-}
 objectMethod cleanup XOTclOCleanupMethod {
 }
 objectMethod configure XOTclOConfigureMethod {
@@ -143,9 +146,6 @@
 objectMethod instvar XOTclOInstVarMethod {
   {-argName "args" -type allargs}
 }
-objectMethod invar XOTclOInvariantsMethod {
-  {-argName "invariantlist" -required 1 -type tclobj}
-}
 objectMethod object-method XOTclOMethodMethod {
   {-argName "-inner-namespace"}
   {-argName "-public"}
@@ -202,9 +202,6 @@
   {-argName "filter" -required 1}
   {-argName "guard" -required 1 -type tclobj}
 }
-classMethod instinvar XOTclCInvariantsMethod {
-  {-argName "invariantlist" -required 1 -type tclobj}
-}
 classMethod mixinguard XOTclCMixinGuardMethod {
   {-argName "mixin" -required 1}
   {-argName "guard" -required 1 -type tclobj}
@@ -250,9 +247,6 @@
 #
 # info object methods
 #
-infoObjectMethod check XOTclObjInfoCheckMethod {
-  {-argName "object" -required 1 -type object}
-}
 infoObjectMethod children XOTclObjInfoChildrenMethod {
   {-argName "object" -required 1 -type object}
   {-argName "pattern" -required 0}
@@ -278,9 +272,6 @@
 infoObjectMethod hasnamespace XOTclObjInfoHasnamespaceMethod {
   {-argName "object" -required 1 -type object}
 }
-infoObjectMethod invar XOTclObjInfoInvarMethod {
-  {-argName "object" -required 1 -type object}
-}
 
 infoObjectMethod method XOTclObjInfoMethodMethod {
   {-argName "object" -type object}
@@ -376,9 +367,6 @@
   {-argName "-definition"}
   {-argName "name"}
 }
-infoClassMethod invar XOTclClassInfoInvarMethod {
-  {-argName "class"  -required 1 -type class}
-}
 infoClassMethod mixin XOTclClassInfoMixinMethod {
   {-argName "class"  -required 1 -type class}
   {-argName "-closure"}