Index: library/nx/nx.tcl
===================================================================
diff -u -r4c4859d357fca9a18892be062cf3de999465e47f -ra3e419eb3993464990b3f32550892e1bc11124fd
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 4c4859d357fca9a18892be062cf3de999465e47f)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision a3e419eb3993464990b3f32550892e1bc11124fd)
@@ -1002,7 +1002,7 @@
       set properties [string range $value [expr {$colonPos+1}] end]
       set name [string range $value 0 [expr {$colonPos -1}]]
       foreach property [split $properties ,] {
-        if {$property in [list "required" "multivalued" "allowempty" "convert"]} {
+        if {$property in [list "required" "multivalued" "allowempty" "convert" "nosetter"]} {
           lappend opts -$property 1
         } elseif {[string match type=* $property]} {
           set type [string range $property 5 end]
@@ -1174,6 +1174,7 @@
     {defaultmethods {get assign}}
     {manager "[::nsf::current object]"}
     {per-object false}
+    {nosetter}
   }
 
   # maybe add the following slots at some later time here
@@ -1234,7 +1235,7 @@
       if {${:per-object} && [info exists :default] } {
         ::nsf::setvar ${:domain} ${:name} ${:default}
       }
-      if {[info exists :noforwarder]} {
+      if {[info exists :nosetter]} {
 	#puts stderr "Do not register forwarder ${:domain} ${:name}" 
         return
       }
@@ -1379,7 +1380,6 @@
     {multivalued true}
     {type relation}
     {elementtype ::nx::Class}
-    {noforwarder}
   }
 
   ::nsf::relation RelationSlot superclass ObjectParameterSlot
@@ -1535,8 +1535,8 @@
 
     # Create two conveniance slots to allow configuration of 
     # object-slots for classes via object-mixin
-    ::nx::RelationSlot create ${os}::Class::slot::object-mixin -noforwarder 1
-    ::nx::RelationSlot create ${os}::Class::slot::object-filter -elementtype "" -noforwarder 1
+    ::nx::RelationSlot create ${os}::Class::slot::object-mixin -nosetter 1
+    ::nx::RelationSlot create ${os}::Class::slot::object-filter -elementtype "" -nosetter 1
 
     #
     # Define method "guard" for mixin- and filter-slots of Object and Class
@@ -1707,8 +1707,9 @@
             [list %1 [${:manager} defaultmethods]] %self \
             ${:methodname}
       }
-      #puts "*** stderr "OPTIMIZER incremental [info exists :incremental] def '[set :defaultmethods]'"
+      #puts "*** stderr OPTIMIZER incremental [info exists :incremental] def '[set :defaultmethods]' nosetter [info exists :nosetter]"
       if {[info exists :incremental] && ${:incremental}} return
+      if {[info exists :nosetter]} return
       if {[set :defaultmethods] ne {get assign}} return
 
       #