Index: generic/predefined.h
===================================================================
diff -u -r29267f0c9db8387f58b03ffc124fc138ad88e463 -rbc6eb608936be7ce3ab17f64981902a4f51194d1
--- generic/predefined.h	(.../predefined.h)	(revision 29267f0c9db8387f58b03ffc124fc138ad88e463)
+++ generic/predefined.h	(.../predefined.h)	(revision bc6eb608936be7ce3ab17f64981902a4f51194d1)
@@ -432,15 +432,15 @@
 "::xotcl::setinstvar [::xotcl::self]::slot __parameter $arglist}\n"
 "proc createBootstrapAttributeSlots {} {}\n"
 "::xotcl::Slot method type=hasmixin {name value arg} {\n"
-"if {![::xotcl::is $value hasmixin $arg]} {\n"
+"if {![::xotcl::objectproperty $value hasmixin $arg]} {\n"
 "error \"expected object with mixin $arg but got \\\"$value\\\" for parameter $name\"}\n"
 "return $value}\n"
 "::xotcl::Slot method type=baseclass {name value} {\n"
-"if {![::xotcl::is $value baseclass]} {\n"
+"if {![::xotcl::objectproperty $value baseclass]} {\n"
 "error \"expected baseclass but got \\\"$value\\\" for parameter $name\"}\n"
 "return $value}\n"
 "::xotcl::Slot method type=metaclass {name value} {\n"
-"if {![::xotcl::is $value metaclass]} {\n"
+"if {![::xotcl::objectproperty $value metaclass]} {\n"
 "error \"expected metaclass but got \\\"$value\\\" for parameter $name\"}\n"
 "return $value}}\n"
 "::xotcl2::Class create ::xotcl::ScopedNew -superclass ::xotcl2::Class {\n"