i.e. something like
(fn geteuid () (car user-stack)) (fn getuid () (cadr user-stack))
that way you can cons on suid and 'pop' outwards.
It's always seemed a trifle annoying to me that when you suid from within something that's already suid you lose information.
-----