Index: generic/gentclAPI.tcl
===================================================================
diff -u -ree73265e036871a0e6f5b83544ff0982c24864ed -r1b27a533f020bd0c0334abd6b2e1ba02db1eae71
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision ee73265e036871a0e6f5b83544ff0982c24864ed)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 1b27a533f020bd0c0334abd6b2e1ba02db1eae71)
@@ -54,7 +54,8 @@
     array set "" $argDefinition
     set ifSet 0
     set cVar 1
-    if {[regexp {^-(.*)$} $(-argName) _ switchName]} {
+    set (-argName) [string map [list - _] $(-argName)]
+    if {[regexp {^_(.*)$} $(-argName) _ switchName]} {
       set varName with[string totitle $switchName]
       set calledArg $varName
       set type "int "
@@ -176,10 +177,13 @@
   }
 
   set namespaces [list]
-  foreach {key value} [array get ::ns] { lappend namespaces "\"$value\"" }
+  foreach {key value} [array get ::ns] { 
+     # no need to create the ::xotcl namespace
+     if {$value eq "::xotcl"} continue
+     lappend namespaces "\"$value\"" 
+  }
   set namespaceString [join $namespaces ",\n  "]
   puts "char *method_command_namespace_names\[\] = {\n  $namespaceString\n};"
-
   puts $stubDecls
   puts $decls
   set enumString [join $enums ",\n "]
@@ -225,6 +229,9 @@
 proc objectMethod {methodName implementation argDefinitions} {
   methodDefinition $methodName objectMethod $implementation $argDefinitions
 }
+proc xotclCmd {methodName implementation argDefinitions} {
+  methodDefinition $methodName xotclCmd $implementation $argDefinitions
+}
 
 source [file dirname [info script]]/gentclAPI.decls