diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index 4ee9b43a8026477a776776db82465c990c257693..e8c5ca7788de1d8c607a333f839258b00a7fc34e 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -186,8 +186,9 @@
 	     (sb-kind sb))))
 
   (let ((nstack-p
-	 (if (or (eq sb-name 'number-stack)
-		 (find 'number-stack (mapcar #'sc-or-lose alternate-scs)
+	 (if (or (eq sb-name 'non-descriptor-stack)
+		 (find 'non-descriptor-stack
+		       (mapcar #'sc-or-lose alternate-scs)
 		       :key #'(lambda (x)
 				(sb-name (sc-sb x)))))
 	     t nil)))