Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rc4f449cb353be812ba6502ef8e9587e87881f59b -rb6fa800493538a2f179224f7f1717eb70913dd8b
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision c4f449cb353be812ba6502ef8e9587e87881f59b)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision b6fa800493538a2f179224f7f1717eb70913dd8b)
@@ -1095,7 +1095,7 @@
 
     #:property defaultmethods {get set}
 
-    :property {substdefault true}
+    :property {substdefault}
     :property -accessor public multivalued {
       #
       # The slot object is an nx object, therefore we need the nx
@@ -1179,6 +1179,9 @@
       # passed. Since nx does not allow this, we simply ignore the passed
       # arguments $args.
       #
+      if {[info exists :default] && ![info exists :substdefault]} {
+        set :substdefault 0b111
+      }
       nsf::next ""
     }