diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index 1b1c3f02125cec87600c16312bcde42d086eba14..dbe74df2c96a14345f2d4f7958876770dd37d875 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.15 1994/10/24 22:51:53 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.16 1994/10/24 23:07:21 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1632,7 +1632,7 @@
 		    #.c:sgi-fasl-file-implementation)
 		   "")
 		  (#.c:sparc-fasl-file-implementation
-		   (if (member :svr4 (c:backend-features c:*backend*))
+		   (if (c:backend-featurep :svr4)
 		       "_"
 		       "")))
 		name)))