diff --git a/ansi-tests/in-package.lsp b/ansi-tests/in-package.lsp
index 079f5f5f0cdb8a49ab448cf01bc5c0b689181c5d..52fc375b2a7a8549069aa38bfcbf04f1cab4dab9 100644
--- a/ansi-tests/in-package.lsp
+++ b/ansi-tests/in-package.lsp
@@ -11,29 +11,37 @@
 
 (deftest in-package.1
   (let ((*package* *package*))
-    (let ((p2 (in-package "A")))
-      (and (eqt p2 (find-package "A"))
+    (safely-delete-package "H")
+    (make-package "H" :use ())
+    (let ((p2 (in-package "H")))
+      (and (eqt p2 (find-package "H"))
 	   (eqt *package* p2))))
   t)
 
 (deftest in-package.2
   (let ((*package* *package*))
-    (let ((p2 (in-package |A|)))
-      (and (eqt p2 (find-package "A"))
+    (safely-delete-package "H")
+    (make-package "H" :use ())
+    (let ((p2 (in-package |H|)))
+      (and (eqt p2 (find-package "H"))
 	   (eqt *package* p2))))
   t)
 
 (deftest in-package.3
   (let ((*package* *package*))
-    (let ((p2 (in-package :|A|)))
-      (and (eqt p2 (find-package "A"))
+    (safely-delete-package "H")
+    (make-package "H" :use ())
+    (let ((p2 (in-package :|H|)))
+      (and (eqt p2 (find-package "H"))
 	   (eqt *package* p2))))
   t)
 
 (deftest in-package.4
   (let ((*package* *package*))
-    (let ((p2 (in-package #\A)))
-      (and (eqt p2 (find-package "A"))
+    (safely-delete-package "H")
+    (make-package "H" :use ())
+    (let ((p2 (in-package #\H)))
+      (and (eqt p2 (find-package "H"))
 	   (eqt *package* p2))))
   t)