diff --git a/ansi-tests/find-symbol.lsp b/ansi-tests/find-symbol.lsp
index 20d25ece47bfc723556497b31569d5d9fa39488b..29400f576e971264b283ad27ec7b06f737a7a3d2 100644
--- a/ansi-tests/find-symbol.lsp
+++ b/ansi-tests/find-symbol.lsp
@@ -71,32 +71,32 @@
   A::FOO :inherited)
 
 (deftest find-symbol.15
-  (find-symbol "FOO" "B")
-  A::FOO :inherited)
+  (find-symbol "FOO" "FS-B")
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.16
-  (find-symbol "FOO" (find-package "B"))
-  A::FOO :inherited)
+  (find-symbol "FOO" (find-package "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.17
   (let ((name (make-array '(3) :initial-contents "FOO"
 			  :element-type 'base-char)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.18
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'character
 			  :fill-pointer 3)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.19
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'base-char
 			  :fill-pointer 3)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.20
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
@@ -104,8 +104,8 @@
 	 (name (make-array '(3) :element-type 'character
 			   :displaced-to name0
 			   :displaced-index-offset 1)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.21
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
@@ -113,18 +113,18 @@
 	 (name (make-array '(3) :element-type 'base-char
 			   :displaced-to name0
 			   :displaced-index-offset 1)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.22
-  (find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char))
-  A::FOO :inherited)
+  (find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.23
-  (find-symbol "FOO" (make-array '(2) :initial-element #\B
-				 :fill-pointer 1
+  (find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX"
+				 :fill-pointer 4
 				 :element-type 'base-char))
-  A::FOO :inherited)
+  FS-A::FOO :inherited)
 
 
 
diff --git a/ansi-tests/packages-00.lsp b/ansi-tests/packages-00.lsp
index fc4b77753d626536f0bf19128ae5d2600b9a5e80..6ade20227dc4898ee72cfe88f2b01faf4806a002 100644
--- a/ansi-tests/packages-00.lsp
+++ b/ansi-tests/packages-00.lsp
@@ -17,6 +17,17 @@
     (:use "A")
     (:export "BAR")))
 
+(report-and-ignore-errors
+  (defpackage "FS-A"
+    (:use)
+    (:nicknames "FS-Q")
+    (:export "FOO")))
+
+(report-and-ignore-errors
+  (defpackage "FS-B"
+    (:use "FS-A")
+    (:export "BAR")))
+
 (report-and-ignore-errors
   (defpackage "DS1"
     (:use)