diff --git a/core/strings/strings-tests.factor b/core/strings/strings-tests.factor
index 3ae7b92a5f..961c8cdf6e 100755
--- a/core/strings/strings-tests.factor
+++ b/core/strings/strings-tests.factor
@@ -96,7 +96,7 @@ unit-test
 [ ] [
     [
         4 [
-            100 [ drop "obdurak" ] map
+            100 [ drop "obdurak" clone ] map
             gc
             dup [
                 1234 0 rot set-string-nth