diff --git a/core/classes/intersection/intersection-tests.factor b/core/classes/intersection/intersection-tests.factor index d8aeb472d6..a9bdb71c30 100644 --- a/core/classes/intersection/intersection-tests.factor +++ b/core/classes/intersection/intersection-tests.factor @@ -39,7 +39,7 @@ M: t4 g drop t4 ; PREDICATE: odd-integer < integer odd? ; -! [ TUPLE: omg { a intersection{ fixnum odd-integer } initial: 2 } ;" eval( -- ) ] +! [ "TUPLE: omg { a intersection{ fixnum odd-integer } initial: 2 } ;" eval( -- ) ] ! [ bad-initial-value? ] must-fail-with TUPLE: omg { a intersection{ fixnum odd-integer } initial: 1 } ;