Paste: stack effect error

! read a 1 or 4 byte big endian int                             
: read-var-int ( -- n )
    1 read first dup 7 bit?
    [ 127 bitand 3 read swap suffix be> ]
    when ;

: read-name-value-pair ( -- name value )
    2 [ read-var-int ] times [ read ] bi@ ;