x.patch

diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
index 3f41993dc..b70badaa3 100644
--- a/src/Perl6/Optimizer.nqp
+++ b/src/Perl6/Optimizer.nqp
@@ -1955,13 +1955,13 @@ class Perl6::Optimizer {
                 # 1024 is just a heuristic, measuring might show a bigger value would be fine.
                 if $all_args_known && self.op_eq_core($op, '&infix:<x>') {
                     my int $survived := 0;
-                    my int $size;
+                    my num $size;
                     try {
-                        $size := @args[0].chars * @args[1];
+                        $size := nqp::mul_n(@args[0].chars, @args[1]);
                         $survived := 1;
                     }
 
-                    return $op if $survived && $size > 1024;
+                    return $op if $survived && nqp::isgt_n($size, 1024.0);
                 }
 
                 # If so, attempt to constant fold.