diff --git a/extra/bson/bson-tests.factor b/extra/bson/bson-tests.factor index f068e951ae..7353a9a831 100644 --- a/extra/bson/bson-tests.factor +++ b/extra/bson/bson-tests.factor @@ -4,7 +4,7 @@ io.streams.byte-array tools.test literals calendar kernel math ; IN: bson.tests : turnaround ( value -- value ) - assoc>bv >byte-array binary [ H{ } stream>assoc ] with-byte-reader ; + assoc>bv >byte-array binary [ H{ } clone stream>assoc ] with-byte-reader ; [ H{ { "a" "a string" } } ] [ H{ { "a" "a string" } } turnaround ] unit-test