diff --git a/test/suite-array.janet b/test/suite-array.janet
index b6c7954a..e3e8a0b3 100644
--- a/test/suite-array.janet
+++ b/test/suite-array.janet
@@ -86,5 +86,9 @@
 (assert-error "array/join error 4" (array/join @[] "abc123"))
 (assert-error "array/join error 5" (array/join @[] "abc123"))
 
+# Regression 1714
+(repeat 10
+  (assert (deep= (put @[] 100 10) (put (seq [_ :range [0 101]] nil) 100 10)) "regression 1714"))
+
 (end-suite)
 
diff --git a/test/suite-buffer.janet b/test/suite-buffer.janet
index b1362537..a0262bf9 100644
--- a/test/suite-buffer.janet
+++ b/test/suite-buffer.janet
@@ -179,5 +179,9 @@
 (assert (= (string buf) "xxxxxx") "buffer/format-at negative index")
 (assert-error "expected index at to be in range [0, 0), got 1" (buffer/format-at @"" 1 "abc"))
 
+# Regression 1714
+(repeat 10
+  (assert (deep= (put @"" 100 10) (put (buffer (string/repeat "\0" 101)) 100 10)) "regression 1714"))
+
 (end-suite)