--- a/lisp/packages/jka-compr.el	Mon Aug 13 08:52:30 2007 +0200
+++ b/lisp/packages/jka-compr.el	Mon Aug 13 08:52:56 2007 +0200
@@ -828,16 +828,7 @@
 (defun jka-compr-installed-p ()
   "Return non-nil if jka-compr is installed.
 The return value is the entry in `file-name-handler-alist' for jka-compr."
-
-  (let ((fnha file-name-handler-alist)
-	(installed nil))
-
-    (while (and fnha (not installed))
-     (and (eq (cdr (car fnha)) 'jka-compr-handler)
-	   (setq installed (car fnha)))
-      (setq fnha (cdr fnha)))
-
-    installed))
+  (rassq 'jka-compr-handler file-name-handler-alist))
 
 
 ;;; Add the file I/O hook if it does not already exist.