         } cleave
     ] (write-message) ; inline
 
-: insert-write-message ( message -- )
+: write-insert-message ( message -- )
     [ 
        [ flags>> write-int32 ]
        [ collection>> write-cstring ]
        [ objects>> [ assoc>stream ] each ] tri
     ] (write-message) ; inline
 
-: update-write-message ( message -- )
+: write-update-message ( message -- )
     [
         { 
             [ flags>> write-int32 ]

        [ query>> "query" selector set-at ]
    } cleave selector ; inline

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

        } 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 ]
