Index: library/nx/nx.tcl
===================================================================
diff -u -r0d35d1ccd86f2b72296ff01d0d83747ca1c0de65 -r92e6424562685bcc3665bf23dfcdc3ee489c25ef
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 0d35d1ccd86f2b72296ff01d0d83747ca1c0de65)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 92e6424562685bcc3665bf23dfcdc3ee489c25ef)
@@ -802,7 +802,12 @@
       lappend objopts required
       lappend methodopts required
     }
-    if {[info exists :type]} {
+
+    if {[::nsf::existsvar [::nsf::current object] type] ne [info exists :type]} {
+      puts stderr "*** VERY STRANGE: info exists :type says [info exists :type], ::nsf::existsvar [::nsf::current object] type says [::nsf::existsvar [::nsf::current object] type]"
+    }
+
+    if {[::nsf::existsvar [::nsf::current object] type]} {
       if {[string match ::* ${:type}]} {
 	set type [expr {[::nsf::is metaclass ${:type}] ? "class" : "object"}]
         lappend objopts type=${:type}