Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rca94e89f9a531dd4c58e22f1b87c0b941689799a -r39f9db2ddfc7dbf44cb95d04615f7c76c397c00d
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision ca94e89f9a531dd4c58e22f1b87c0b941689799a)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 39f9db2ddfc7dbf44cb95d04615f7c76c397c00d)
@@ -600,11 +600,12 @@
   Object instproc isclass     {{class:substdefault  "[self]"}} {::nsf::is class $class}
   Object instproc ismetaclass {{class:substdefault  "[self]"}} {::nsf::is metaclass $class}
   Object instproc ismixin     {class}  {
-    expr {[::nsf::is class $class] && 
-	  [my ::nsf::methods::object::info::hasmixin $class]}}
+    return [expr {[::nsf::is class $class] && 
+		  [my ::nsf::methods::object::info::hasmixin $class]}]
+  }
   Object instproc istype      {class}  {
-    expr {[::nsf::is class $class] && 
-	  [::nsf::dispatch [self] ::nsf::methods::object::info::hastype $class]}
+    return [expr {[::nsf::is class $class] && 
+		  [::nsf::dispatch [self] ::nsf::methods::object::info::hastype $class]}]
   }
 
   # definitin of "contains", based on nx