         [ query>> "query" selector set-at ]
     } cleave selector ; inline
 
-: query-write-message ( message -- )
+: write-query-message ( message -- )
     [
         {
             [ flags>> write-int32 ]

        } cleave
    ] (write-message) ; inline

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

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

        } cleave
    ] (write-message) ; inline

: write-killcursors-message ( message -- )
    [
       [ flags>> write-int32 ]
       [ cursors#>> write-int32 ]
