Thanks. For the info. The example was essentially some through away code to demonstrate the binary tree operation in Tcl.

You're right on with the while() tip. I wanted the example code to be more explicit in the operation of the tree.

Mike