> emacs -Q
 > M-x find-function delete-window
 >   -> works
 >
 > (defadvice delete-window (after foo activate)
 >   ""
 >   t)
 >
 > M-x find-function delete-window
 >   -> fails

I attached a tentative fix.  Please try it.

martin