diff --git a/compiler/array-tran.lisp b/compiler/array-tran.lisp
index 07428a2ac712d911201b85efbda8b0f7cec88074..3af77f3a44de61c5cff1f8c276bb13e06acec2f5 100644
--- a/compiler/array-tran.lisp
+++ b/compiler/array-tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.7 1991/01/13 23:08:25 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/array-tran.lisp,v 1.8 1991/01/14 10:52:45 ram Exp $
 ;;;
 ;;; This file contains array specific optimizers and transforms.
 ;;; 
@@ -536,7 +536,7 @@
   ;;
   ;; If result its T, make it the first arg.
   (deftransform fun ((bit-array-1 bit-array-2 result-bit-array)
-		     (bit-vector bit-vector (constant-argument t)) *
+		     (bit-vector bit-vector (member t)) *
 		     :eval-name t)
     `(,fun bit-array-1 bit-array-2 bit-array-1)))