diff --git a/basis/circular/circular-tests.factor b/basis/circular/circular-tests.factor
index 9f2a22659b..46a32be773 100644
--- a/basis/circular/circular-tests.factor
+++ b/basis/circular/circular-tests.factor
@@ -48,3 +48,9 @@ IN: circular.tests
         [ [ push ] [ length 5 < ] bi ] curry circular-while*
     ] keep
 ] unit-test
+
+[ V{ 1 } ] [
+    { 1 2 3 } <circular> V{ } [
+        [ push f ] curry circular-while*
+    ] keep
+] unit-test