Yes, I've searched for statements explicitly returning 1, but only found one function that does that and it doesn't use pubm. Unfortunately, my experience with tcl is limited, so if anyone could look into this for me, I'd be very grateful.
Thanks.