Index: generic/nsf.tcl
===================================================================
diff -u -rcaba76f5ac2943f5a3dfd33550cb578132f40c80 -r3cbf24ff95e38976cdc905ec0e8014d9d754ad6f
--- generic/nsf.tcl	(.../nsf.tcl)	(revision caba76f5ac2943f5a3dfd33550cb578132f40c80)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 3cbf24ff95e38976cdc905ec0e8014d9d754ad6f)
@@ -79,11 +79,11 @@
   ::nsf::proc ::nsf::mixin {object -per-object:switch classes} {
     set rel [expr {${per-object} ? "object-mixin" : "class-mixin"}]
     if {[lindex $classes 0] ne ""} {
-      set oldSetting [::nsf::relation $object $rel]
+      set oldSetting [::nsf::relation::get $object $rel]
       # use uplevel to avoid namespace surprises
-      uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $classes]]
+      uplevel [list ::nsf::relation::set $object $rel [linsert $oldSetting 0 $classes]]
     } else {
-      uplevel [list ::nsf::relation $object $rel ""]
+      uplevel [list ::nsf::relation::set $object $rel ""]
     }
   }