Index: generic/gentclAPI.tcl
===================================================================
diff -u -raa5b3f4293624fedf641985718ab15c82f5daf78 -r44ab715c53a4151f2bcd844fd6f3a1eb2fc0bbe6
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision aa5b3f4293624fedf641985718ab15c82f5daf78)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 44ab715c53a4151f2bcd844fd6f3a1eb2fc0bbe6)
@@ -513,7 +513,7 @@
   }
   set d(parameterDefinitions) $completed
   set ::definitions($d(methodType)-$d(implementation)-$d(methodName)) [array get d]
-  puts $::nxdocIndex [list set ::nxdoc::include($d(ns)::$d(methodName)) $opts(-nxdoc)]
+  # puts $::nxdocIndex [list set ::nxdoc::include($d(ns)::$d(methodName)) $opts(-nxdoc)]
 }
 
 proc checkMethod {methodName implementation parameterDefinitions {options ""}} {
@@ -538,9 +538,9 @@
 }
 
 if {[llength $argv] == 1} {set decls $argv} {set decls generic/gentclAPI.decls}
-set ::nxdocIndex [open [file root $decls].nxdocindex w]
+# set ::nxdocIndex [open [file root $decls].nxdocindex w]
 source $decls
-close $::nxdocIndex
+# close $::nxdocIndex
 
 puts {
 /*