diff --git a/ansi-tests/butlast.lsp b/ansi-tests/butlast.lsp
index b64f809cab54356e4b14d606ed1808238904cae1..f5690a146274d08b842d72cf93d5116425f26932 100644
--- a/ansi-tests/butlast.lsp
+++ b/ansi-tests/butlast.lsp
@@ -45,6 +45,10 @@
   (butlast (copy-tree '(a b c . d)) 1)
   (a b))
 
+(deftest butlast.6
+  (butlast '(a b c d e) (1+ most-positive-fixnum))
+  nil)
+
 (deftest butlast.order.1
   (let ((i 0) x y)
     (values
diff --git a/ansi-tests/nbutlast.lsp b/ansi-tests/nbutlast.lsp
index a3cdf93027e8ad75d6d3b2f22628b8e787f39ca0..cd2c0dff257b6e2c83949b36b63328daab1594e2 100644
--- a/ansi-tests/nbutlast.lsp
+++ b/ansi-tests/nbutlast.lsp
@@ -43,6 +43,10 @@
   (nbutlast (list 'a))
   nil)
 
+(deftest nbutlast.7
+  (nbutlast (list 'a 'b 'c 'd) (1+ most-positive-fixnum))
+  nil)
+
 (deftest nbutlast.order.1
   (let ((i 0) x y)
     (values