     "seek-test2" unique-file binary
     [
         [
-            B{ 1 2 3 4 5 } write flush -1 seek-relative seek-output
+            B{ 1 2 3 4 5 } write -1 seek-relative seek-output
             B{ 3 } write
         ] with-file-writer
     ] [

    "seek-test1" unique-file binary
    [
        [
            B{ 1 2 3 4 5 } write flush 0 seek-absolute seek-output
            B{ 3 } write
        ] with-file-writer
    ] [

    "seek-test3" unique-file binary
    [
        [
            B{ 1 2 3 4 5 } write 1 seek-relative seek-output
            B{ 3 } write
        ] with-file-writer
    ] [
