 
 ! Make sure we report the correct error on stack underflow
 [ clear drop ] [
-    ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW f f } =
+    2 head ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW } =
 ] must-fail-with
 
 { } [ :c ] unit-test
 
 [
     3 [ { } set-retainstack ] dip ]
-    [ ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW f f } =
+    [ 2 head ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW } =
 ] must-fail-with
 
 { } [ :c ] unit-test

>>

[ overflow-d ] [
    ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } =
] must-fail-with

{ } [ :c ] unit-test

[ overflow-d-alt ] [
    ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } =
] must-fail-with

{ } [ [ :c ] with-string-writer drop ] unit-test

[ overflow-r ] [
    ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW f f } =
] must-fail-with

{ } [ :c ] unit-test

! fault handlers on an alternate callstack.
os windows? [
    [ overflow-c ] [
        2 head ${ "kernel-error" ERROR-CALLSTACK-OVERFLOW } =
    ] must-fail-with
] unless

