diff --git a/tests/defcfun.lisp b/tests/defcfun.lisp
index 524f78ddaca4..48bcd3c2acc5 100644
--- a/tests/defcfun.lisp
+++ b/tests/defcfun.lisp
@@ -29,13 +29,15 @@
 
 (deftest defcfun.parse-name-and-options.1
     (multiple-value-bind (lisp-name foreign-name)
-        (cffi::parse-name-and-options "foo_bar")
+        (let ((*package* (find-package '#:cffi-tests)))
+          (cffi::parse-name-and-options "foo_bar"))
       (list lisp-name foreign-name))
   (foo-bar "foo_bar"))
 
 (deftest defcfun.parse-name-and-options.2
     (multiple-value-bind (lisp-name foreign-name)
-        (cffi::parse-name-and-options "foo_bar" t)
+        (let ((*package* (find-package '#:cffi-tests)))
+          (cffi::parse-name-and-options "foo_bar" t))
       (list lisp-name foreign-name))
   (*foo-bar* "foo_bar"))