--- a
+++ b/src/tests/bugs/sf286.lsp
@@ -0,0 +1,17 @@
+
+;; miscompilation - assumed that read-from-string returns a fixnum.
+
+(deftest sf286-a
+         (assert
+           (let ((string ":cl-user"))
+             (find-package 
+               (let ((*package* *swank-io-package*))
+                 (read-from-string string))))))
+
+(deftest sf286-b
+         (assert
+           (let ((string ":cl-user"))
+             (let ((*package* *swank-io-package*))
+               (find-package 
+                 (read-from-string string)))))
+