diff --git a/qvariant.lisp b/qvariant.lisp
index 74cc136..2c4b94d 100644
--- a/qvariant.lisp
+++ b/qvariant.lisp
@@ -43,6 +43,7 @@
   (typecase value
     ((or string integer single-float double-float) t)
     (qobject
-       (iter (for (code . type) in (qvariant-ptr-types))
-             (thereis (qtypep value type))))
-    (t nil)))
\ No newline at end of file
+     (or (qtypep value "QVariant")
+         (iter (for (code . type) in (qvariant-ptr-types))
+               (thereis (qtypep value type)))))
+    (t nil)))