 >>
 
 [ overflow-d ] [
-    ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } =
+    2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } =
 ] must-fail-with
 
 { } [ :c ] unit-test
 
 [ overflow-d-alt ] [
-    ${ "kernel-error" ERROR-DATASTACK-OVERFLOW f f } =
+    2 head ${ "kernel-error" ERROR-DATASTACK-OVERFLOW } =
 ] must-fail-with
 
 { } [ [ :c ] with-string-writer drop ] unit-test
 
 [ overflow-r ] [
-    ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW f f } =
+    2 head ${ "kernel-error" ERROR-RETAINSTACK-OVERFLOW } =
 ] must-fail-with
 
 { } [ :c ] unit-test

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



! Make sure we report the correct error on stack underflow
[ clear drop ] [
    2 head ${ "kernel-error" ERROR-DATASTACK-UNDERFLOW } =
] must-fail-with

{ } [ :c ] unit-test

[
    3 [ { } set-retainstack ] dip ]
    [ 2 head ${ "kernel-error" ERROR-RETAINSTACK-UNDERFLOW } =
] must-fail-with

{ } [ :c ] unit-test
