--- pces-20.el~	2005-05-10 07:40:04 +0000
+++ pces-20.el	2005-05-10 08:13:42 +0000
@@ -82,16 +82,20 @@
        )
      str)))
 
+(eval-and-compile
+  (defun insert-file-contents-literally-treats-file-name-handler (operation
+								  &rest args)
+    (setq called t)
+    (let (file-name-handler-alist)
+      (apply operation args))))
+
 (broken-facility insert-file-contents-literally-treats-file-name-handler
   "Function `insert-file-contents' doesn't call file-name-handler."
   (let (called)
     (with-temp-buffer
       (let ((file-name-handler-alist
-	     '(("literal-test-file" . (lambda (operation &rest args)
-					(setq called t)
-					(let (file-name-handler-alist)
-					  (apply operation args)
-					  ))))))
+	     '(("literal-test-file"
+		. insert-file-contents-literally-treats-file-name-handler))))
 	(insert-file-contents-literally "literal-test-file")
 	)
       (delete-file "literal-test-file")
