Index: /trunk/ccl/level-1/sysutils.lisp
===================================================================
--- /trunk/ccl/level-1/sysutils.lisp	(revision 238)
+++ /trunk/ccl/level-1/sysutils.lisp	(revision 239)
@@ -284,5 +284,5 @@
     (if pred
       (funcall pred object)
-      (%typep object type))))
+      (values (%typep object type)))))