         } cleave
     ] (write-message) ; inline
 
-: killcursors-write-message ( message -- )
+: write-killcursors-message ( message -- )
     [
        [ flags>> write-int32 ]
        [ cursors#>> write-int32 ]


: write-message ( message -- )
    {  
        { [ dup mdb-query-msg? ] [ query-write-message ] }
        { [ dup mdb-insert-msg? ] [ insert-write-message ] }
        { [ dup mdb-update-msg? ] [ update-write-message ] }
        { [ dup mdb-delete-msg? ] [ delete-write-message ] }
        { [ dup mdb-getmore-msg? ] [ getmore-write-message ] }
        { [ dup mdb-killcursors-msg? ] [ killcursors-write-message ] }
    } cond ;

        } cleave
    ] (write-message) ; inline

: write-delete-message ( message -- )
    [
       [ flags>> write-int32 ]
       [ collection>> write-cstring ]
       [ 0 write-int32 selector>> assoc>stream ] tri
    ] (write-message) ; inline

: write-getmore-message ( message -- )
    [
        {
           [ flags>> write-int32 ]
