Index: generic/predefined.xotcl =================================================================== diff -u -rf4c5e835150b90501c5d871970114d7972a2b995 -r0691631f96a192504bbe294d5cd11bcc3e545881 --- generic/predefined.xotcl (.../predefined.xotcl) (revision f4c5e835150b90501c5d871970114d7972a2b995) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 0691631f96a192504bbe294d5cd11bcc3e545881) @@ -80,7 +80,7 @@ ::xotcl::setrelation ::xotcl::MetaSlot superclass ::xotcl::Class ::xotcl::MetaSlot instproc new args { set slotobject [self callingobject]::slot - if {![my isobject $slotobject]} {Object create $slotobject; namespace eval $slotobject {namespace import ::xotcl::*; puts stderr IMPORT}} + if {![my isobject $slotobject]} {Object create $slotobject; namespace eval $slotobject {namespace import ::xotcl::*}} #namespace eval [self]::slot $cmds #puts "metaslot $args // [namespace current] // [self callingobject]" eval next -childof $slotobject $args