How to jump to toplevel ?

Hi all,
while hacking i often ended up in the debugger due to some
simple typos and similar stupid things. So i want to have
the :top command on a key (prefered "escape").

My current solution is:

(defun restart-toplevel ()
  "Go to toplevel"
  (let ((r (compute-restarts)))
    (invoke-restart (nth (- (length r) 2) r))))

This assumes that in LWW the toplevel restart is the last but one
(and thus is a really boring way to do this).

Is there a better solution to do this ?

Thanks in advance
AHz