Index: library/nx/nx.tcl
===================================================================
diff -u -N -r8be635fcabc150f3922951c71d9919d62db09b10 -r0f683270c600d1bbf44a52cb80ee49744c6c1034
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 8be635fcabc150f3922951c71d9919d62db09b10)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 0f683270c600d1bbf44a52cb80ee49744c6c1034)
@@ -1972,12 +1972,12 @@
         lappend options [expr {[::nsf::is metaclass $type] ? "class" : "object"}] type=$type
       } else {
         lappend options $type
-        if {!$forInfo && $type ni [list "" \
-                             "boolean" "integer" "object" "class" \
-                             "metaclass" "baseclass" "parameter" \
-                             "alnum" "alpha" "ascii" "control" "digit" "double" \
-                             "false" "graph" "lower" "print" "punct" "space" "true" \
-                             "wideinteger" "wordchar" "xdigit" ]} {
+        if {$type ni [list "" \
+                          "boolean" "switch" "integer" "object" "class" \
+                          "metaclass" "baseclass" "parameter" \
+                          "alnum" "alpha" "ascii" "control" "digit" "double" \
+                          "false" "graph" "lower" "print" "punct" "space" "true" \
+                          "wideinteger" "wordchar" "xdigit" ]} {
           lappend options slot=[::nsf::self]
         }
       }