Inverse logic in Tcl_DictObjNext() example on man page

The Tcl_DictObjNext() man page shows the following code in an example:

for (; done ; Tcl_DictObjNext(&search, &key, &value, &done)) {

However, the done variable is only set to TRUE when the whole dictionary has been processed and it is FALSE as long as the loop should continue. So the check of the for loop should be inverted:

for (; !done ; Tcl_DictObjNext(&search, &key, &value, &done)) {