diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 586d1651585e436dd512c236f35ae1a8aacf3718..22dfb39e5812db4b2929756e9c5ab7e2982ea7f1 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.1.1.15 1990/06/02 16:41:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.1.1.16 1990/06/08 17:59:56 wlott Exp $
 ;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
@@ -423,14 +423,13 @@
 ;;;    Invalidate the memory pointed to by unless it is a statically
 ;;; allocated alien.
 ;;;
+#+new-compiler
 (defun dispose-alien (alien)
   "Release the storage allocated for Alien."
   (check-type alien alien-value)
   (let ((address (alien-value-sap alien)))
-    (unless (not (or (#-new-compiler %primitive pointer<
-				     address system-space-start)
-		     (#-new-compiler %primitive pointer>
-				     address alien-allocation-end)))
+    (unless (not (or (pointer< address system-space-start)
+		     (pointer> address alien-allocation-end)))
       (gr-call mach:vm_deallocate *task-self* address
 	       (logand #x-200 (ash (+ (alien-value-size alien) #xFFF)
 				   (- alien-address-shift)))))))