Index: generic/predefined.xotcl
===================================================================
diff -u -rf9807b1cea03590c9573b5a521760538d53ee90f -r25de23e98a24210b149179c5d1f52836a65fddab
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision f9807b1cea03590c9573b5a521760538d53ee90f)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 25de23e98a24210b149179c5d1f52836a65fddab)
@@ -722,7 +722,7 @@
 
 ::xotcl::ScopedNew method init {} {
   .public method new {-childof args} {
-    ::xotcl::instvar -object [::xotcl::self class] {inobject object} withclass
+    ::xotcl::importvar [::xotcl::self class] {inobject object} withclass
     if {![::xotcl::is $object object]} {
       $withclass create $object
     }
@@ -812,7 +812,7 @@
 
       if {[$po exists extra] || [$po exists setter] ||
 	  [$po exists getter] || [$po exists access]} {
-	::xotcl::instvar -object $po extra setter getter access defaultParam
+	::xotcl::importvar $po extra setter getter access defaultParam
 	if {![info exists extra]} {set extra ""}
 	if {![info exists defaultParam]} {set defaultParam ""}
 	if {![info exists setter]} {set setter set}