diff --git a/src/tests/normal-tests/metaobject-protocol.lsp b/src/tests/normal-tests/metaobject-protocol.lsp
index ce4099d94..c6a1d3aa2 100644
--- a/src/tests/normal-tests/metaobject-protocol.lsp
+++ b/src/tests/normal-tests/metaobject-protocol.lsp
@@ -782,4 +782,4 @@ the metaclass")
 
 ;;; Ensure that funcallable object is subclass of function.
 (deftest mop.0031 ()
-  (subtypep 'mop:funcallable-standard-object 'function))
+  (is (subtypep 'mop:funcallable-standard-object 'function)))