diff --git a/pcl/simple-streams/external-formats/utf-16.lisp b/pcl/simple-streams/external-formats/utf-16.lisp
index d71c75b8686914ddeac9ff5dd9c0f6fc24ddf476..f15a9b4fd3804405dcb70f0b8e1f61884fd67045 100644
--- a/pcl/simple-streams/external-formats/utf-16.lisp
+++ b/pcl/simple-streams/external-formats/utf-16.lisp
@@ -1,7 +1,7 @@
 ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
 ;;;
 ;;; **********************************************************************
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.5 2009/10/18 14:21:24 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/utf-16.lisp,v 1.6 2010/01/22 23:57:29 rtoy Exp $")
 
 (in-package "STREAM")
 
@@ -78,9 +78,9 @@
 			       ,wd 4)
 			 (setf ,code +replacement-character-code+))))
 		  ((and (= ,code #xFFFE) (zerop ,st))
-		   (setf ,state 1) (go :again))
+		   (setf (car ,state) 1) (go :again))
 		  ((and (= ,code #xFEFF) (zerop ,st))
-		   (setf ,state 2) (go :again))
+		   (setf (car ,state) 2) (go :again))
 		  ((= ,code #xFFFE)
 		   ;; Replace with REPLACEMENT CHARACTER.  
 		   (setf ,code +replacement-character-code+)))