Index: generic/nsf.tcl
===================================================================
diff -u -rcaba76f5ac2943f5a3dfd33550cb578132f40c80 -r729b49eb1dcb08183a0ed41588416a923271811a
--- generic/nsf.tcl	(.../nsf.tcl)	(revision caba76f5ac2943f5a3dfd33550cb578132f40c80)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 729b49eb1dcb08183a0ed41588416a923271811a)
@@ -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 ""]
     }
   }
 
@@ -198,7 +198,7 @@
   proc ::nsf::parameter::filter {defs pattern} {
     set result {}
     foreach def $defs {
-      if {[string match $pattern [::nsf::parameter::get name $def]]} {
+      if {[string match $pattern [::nsf::parameter::info name $def]]} {
 	lappend result $def
       }
     }