diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index c04a37c575ca24d42598f7d0ce39101993b9fede..afd86ba143468496f49a8314d9431b02eeb3ea0a 100644
--- a/compiler/ltn.lisp
+++ b/compiler/ltn.lisp
@@ -34,10 +34,9 @@
 			 (cookie-cspeed dcookie))))
 	 (speed (or (cookie-speed cookie)
 		    (cookie-speed dcookie))))
-    (cond ((>= safety speed space) :fast-safe)
-	  ((>= speed (max space safety)) :fast)
-	  ((>= space (max speed safety)) :small)
-	  (t :safe))))
+    (if (zerop safety)
+	(if (>= speed space) :fast :small)
+	(if (>= speed space) :fast-safe :safe))))
 
 
 ;;; Policy-Safe-P  --  Interface