diff --git a/ansi-tests/sxhash.lsp b/ansi-tests/sxhash.lsp
index 17ed505b695f69cb8d3212e21353ecb2dc2b8cfb..15ae2d3e26617a2438bb9b6a24d24a978419a8cd 100644
--- a/ansi-tests/sxhash.lsp
+++ b/ansi-tests/sxhash.lsp
@@ -267,6 +267,19 @@
       hashes))
   :good)
 
+;;; The hash of a symbol does not change when its package changes
+(deftest sxhash.23
+  (progn
+    (safely-delete-package "A")
+    (defpackage "A" (:use))
+    (let* ((pkg (find-package "A"))
+	   (sym (intern "FOO" pkg))
+	   (hash (sxhash sym)))
+      (unintern sym pkg)
+      (let ((hash2 (sxhash sym)))
+	(if (eql hash hash2) nil (list hash hash2)))))
+  nil)      
+
 ;;; Error cases
 
 (deftest sxhash.error.1