Index: library/nx/nx.tcl
===================================================================
diff -u -r6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242 -r4cc848854bf05b205e027413420fde138a57ddba
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 4cc848854bf05b205e027413420fde138a57ddba)
@@ -800,11 +800,7 @@
       lappend methodopts required
     }
 
-    if {[::nsf::existsvar [::nsf::self] type] ne [info exists :type]} {
-      puts stderr "*** VERY STRANGE: info exists :type says [info exists :type], ::nsf::existsvar [::nsf::self] type says [::nsf::existsvar [::nsf::self] type]"
-    }
-
-    if {[::nsf::existsvar [::nsf::self] type]} {
+    if {[info exists :type]} {
       if {[string match ::* ${:type}]} {
 	set type [expr {[::nsf::is metaclass ${:type}] ? "class" : "object"}]
         lappend objopts type=${:type}