--- psgml-maint.el
+++ psgml-maint.el	2012-07-02 12:28:34.284377856 +0000
@@ -78,7 +78,7 @@
 (defun psgml-compile-files ()
   "Compile the PSGML source files that needs compilation."
   (interactive)
-  (psgml-find-source-dir (interactive-p))
+  (psgml-find-source-dir (called-interactively-p))
   (let ((default-directory psgml-source-dir)
 	(load-path (cons psgml-source-dir load-path)))
     (mapcar (function psgml-byte-compile-file)
--- xxml.el
+++ xxml.el	2012-07-02 12:28:42.168509922 +0000
@@ -293,7 +293,7 @@ Use nil to silence all progress.")
 (defun xxml-version ()
   "Identifies the current version of this module."
   (interactive)
-  (if (interactive-p)
+  (if (called-interactively-p)
       (message xxml-version)
     xxml-version))
 
--- xxml/xxml.el
+++ xxml/xxml.el	2012-07-02 12:28:38.396510520 +0000
@@ -293,7 +293,7 @@ Use nil to silence all progress.")
 (defun xxml-version ()
   "Identifies the current version of this module."
   (interactive)
-  (if (interactive-p)
+  (if (called-interactively-p)
       (message xxml-version)
     xxml-version))