diff --git a/lisp/emacspeak-load-path.el b/lisp/emacspeak-load-path.el
index 53d3268..a3cd7a9 100644
--- a/lisp/emacspeak-load-path.el
+++ b/lisp/emacspeak-load-path.el
@@ -75,11 +75,13 @@ property 'emacspeak on the function."
     (put f 'emacspeak t))
    (t nil)))
 
-(defadvice call-interactively (before emacspeak  pre act comp)
+(defadvice call-interactively (around emacspeak  pre act comp)
   "Set emacspeak  interactive flag if there is an advice."
-  (let ((f  (ad-get-arg 0)))
+  (let ((f  (ad-get-arg 0))
+		(ems-called-interactively-p ems-called-interactively-p))
     (when (ems-record-interactive-p f)
-      (setq ems-called-interactively-p f))))
+	  (setq ems-called-interactively-p f))
+	ad-do-it))
 
 (defsubst ems-interactive-p ()
   "Check our interactive flag.