diff --git a/compiler/aliencomp.lisp b/compiler/aliencomp.lisp
index f50f341d30459184e97fbc44af54b00ca72be064..77ff494066109cb2db799b217b7f5ab2455f4246 100644
--- a/compiler/aliencomp.lisp
+++ b/compiler/aliencomp.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.13 1991/04/22 18:24:30 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.14 1991/04/22 19:30:43 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -540,10 +540,11 @@
 	(assert (null args)))
 
       (let ((results (and return-type (make-call-out-result-tn return-type))))
+	(unless (listp results)
+	  (setf results (list results)))
 	(vop* call-out call block
 	      ((reference-tn-list arg-tns nil))
-	      ((reference-tn-list (if (listp results) results (list results))
-				  t))
+	      ((reference-tn-list results t))
 	      name)
 	(vop dealloc-number-stack-space call block stack-frame-size)
 	(move-continuation-result call block results cont)))))