diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor
index 4bb3ca095e..a30fe7582a 100644
--- a/basis/compiler/tree/propagation/propagation-tests.factor
+++ b/basis/compiler/tree/propagation/propagation-tests.factor
@@ -58,9 +58,13 @@ IN: compiler.tree.propagation.tests
     [ dup string? t xor [ "A" throw ] [ ] if ] final-classes
 ] unit-test
 
-{ t } [
-    [ dupd <string> drop ] final-info first
-    integer-array-capacity <class-info> =
+{
+    V{ $[
+        integer-array-capacity <class-info>
+        integer <class-info>
+    ] }
+} [
+    [ 2dup <string> drop ] final-info
 ] unit-test
 
 { { } } [
diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor
index 0aee17b4fb..47bd154d2d 100644
--- a/basis/stack-checker/known-words/known-words.factor
+++ b/basis/stack-checker/known-words/known-words.factor
@@ -329,7 +329,7 @@ M: object infer-call* \ call bad-macro-input ;
     { (byte-array) { integer-array-capacity } { byte-array } }
     { <array> { integer-array-capacity object } { array } }
     { <byte-array> { integer-array-capacity } { byte-array } }
-    { <string> { integer-array-capacity } { string } }
+    { <string> { integer-array-capacity integer } { string } }
     { <tuple> { array } { tuple } }
 } make-flushable-primitives