diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index e12bd052e..bab665983 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -36,7 +36,7 @@
     ;; These types are never selected to unbox data.
     ;; They are here, because we need to know how to print them.
     :void (nil "void")
-    :pointer-void (foreign-data "void*")
+    :pointer-void (si::foreign-data "void*")
     :cstring (string "char*")
     :char* (string "char*")
     :short ((integer #.si:c-short-min #.si:c-short-max) "short")
diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index a97acced2..b81b17160 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -1039,6 +1039,7 @@ if not possible."
 	       (READTABLE)
 	       #+threads (MP::PROCESS)
 	       #+threads (MP::LOCK)
+	       #+ffi (FOREIGN-DATA)
 	       ))
 
 (defun find-built-in-tag (name)