Compiler generates bad code for make(<byte-string>, size: -1)

[cgay]

Compiling make(<byte-string>, size: -1) in the playground results in this output:

Open Dylan 2023.1pre
computation *t3(0) := [METHOD-CALLi ^{<&method> make (singleton(<byte-string>))}
  (^{<&class> <byte-string>}, ^#[], ^' ', ^-1)] // tail call: -1 is not of type {<union>: #f, {<limited-integer>}}
emit Ktop_level_initializerF0I: -1 is not of type {<union>: #f, {<limited-integer>}}
Build of 'play-516754b46bc6' completed
in 0.957156 seconds
Illegal instruction

make(<string>, size: -1) is slightly different, with this output:

Open Dylan 2023.1pre
Internal error: -1 is not of type {<union>: #f, {<limited-integer>}}
Exiting with return code 9
in 0.242795 seconds
Illegal instruction