diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index 85e3a78ecc38c047ee9b553e1315d255ae531a68..81193e88f10bf9e5981a4ff3844bfe8cfa46956a 100644
--- a/compiler/ltn.lisp
+++ b/compiler/ltn.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.42 2005/01/25 15:49:12 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.43 2005/04/22 14:04:14 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -872,7 +872,7 @@
 	   (type (or template null) template))
 
   (collect ((losers))
-    (let ((safe-p (policy-safe-p policy))
+    (let ((safe-p (eq policy :safe))
 	  (verbose-p (policy call (= brevity 0)))
 	  (max-cost (- (template-cost
 			(or template
@@ -883,7 +883,7 @@
 	(let ((guard (template-guard try)))
 	  (when (and (or (not guard) (funcall guard))
 		     (or (not safe-p)
-			 (policy-safe-p (template-policy try)))
+			 (eq :safe (template-policy try)))
 		     (or verbose-p
 			 (and (template-note try)
 			      (valid-function-use