diff --git a/ansi-tests/print-bit-vector.lsp b/ansi-tests/print-bit-vector.lsp
index ca0e92be10e5d997a99bfa7d0477d67333f289ce..63a6fdeef6126b2d62d630b384de8bae2c06c5ab 100644
--- a/ansi-tests/print-bit-vector.lsp
+++ b/ansi-tests/print-bit-vector.lsp
@@ -30,6 +30,36 @@
 	   0 2))
   "#<")
 
+(deftest print.bit-vector.5
+  (let* ((bv1 #*0001100101)
+	 (bv2 (make-array 5 :displaced-to bv1
+			  :displaced-index-offset 1
+			  :element-type 'bit)))
+    (with-standard-io-syntax
+     (write-to-string bv2 :readably nil :escape nil)))
+  "#*00110")
+
+(deftest print.bit-vector.6
+  (let* ((bv (make-array 10
+			 :element-type 'bit
+			 :initial-contents '(1 0 0 1 0 0 1 1 1 0)
+			 :fill-pointer 5)))
+    (with-standard-io-syntax
+     (write-to-string bv :readably nil :escape nil)))
+  "#*10010")
+
+
+(deftest print.bit-vector.7
+  (let* ((bv (make-array 10
+			 :element-type 'bit
+			 :initial-contents '(1 0 0 1 0 0 1 1 1 0)
+			 :adjustable t)))
+    (with-standard-io-syntax
+     (write-to-string bv :readably nil :escape nil)))
+  "#*1001001110")
+
+
+
 (deftest print.bit-vector.random
   (loop
    for len = (random 100)