diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy
index b1d7f7f..1480d94 100644
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@@ -623,4 +623,5 @@
 (defn test-quoted-hoistable []
   "NATIVE: test quoted hoistable"
   (setf f (quote (if true true true)))
-  (assert (= (car f) "if")))
+  (assert (= (car f) "if"))
+  (assert (= (cdr f) (quote (true true true)))))