Index: library/nx/nx.tcl
===================================================================
diff -u -ra6a5d4be56157641a50c3a25a348464591980ac6 -r4ca122f3c023fe74de3b36c8a65c3145e554aeba
--- library/nx/nx.tcl	(.../nx.tcl)	(revision a6a5d4be56157641a50c3a25a348464591980ac6)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 4ca122f3c023fe74de3b36c8a65c3145e554aeba)
@@ -1370,7 +1370,10 @@
       #puts stderr "+++ [self] added elementtype ${:elementtype}"
     }
     if {${:disposition} eq "slotset"} {
-      lappend options slot=[::nsf::self] ${:disposition} method=${:forwardername}
+      lappend options slot=[::nsf::self] ${:disposition}
+      if {${:forwardername} ne ${:name}} {
+        lappend options method=${:forwardername}
+      }
     } else {
       lappend options ${:disposition}
     }
@@ -1624,25 +1627,29 @@
       -multiplicity 0..n \
       -defaultmethods {} \
       -disposition slotset \
-      -settername "object mixin" -forwardername object-mixin -elementtype mixinreg
+      -settername "object mixin" \
+      -elementtype mixinreg
 
   ::nx::RelationSlot create ::nx::Object::slot::object-filter \
       -multiplicity 0..n \
       -defaultmethods {} \
       -disposition slotset \
-      -settername "object filter" -forwardername object-filter -elementtype filterreg
+      -settername "object filter" \
+      -elementtype filterreg
 
   ::nx::RelationSlot create ::nx::Class::slot::mixin \
       -multiplicity 0..n \
       -defaultmethods {} \
       -disposition slotset \
-      -forwardername "class-mixin" -elementtype mixinreg
+      -forwardername "class-mixin" \
+      -elementtype mixinreg
 
     ::nx::RelationSlot create ::nx::Class::slot::filter \
       -multiplicity 0..n \
       -defaultmethods {} \
       -disposition slotset \
-      -forwardername class-filter -elementtype filterreg
+      -forwardername class-filter \
+      -elementtype filterreg
   
   #
   # Define "class" as a ObjectParameterSlot defined as alias