Effectively I use current-windows to find the handle but the problem is that in "definitions" do not return the correct value of handle.
In procedure main-block returns the correct value of handle.
The reason for wanting to rescue the handle in the definitions is that we have many programs that have or use a .I in the definitions and we want use that to add some code common to them, and not having to copy the new code in each program manually.