diff --git a/ChangeLog.n b/ChangeLog.n
index 0d5c02d3b5413725f8a9da93a53741c3cea9914b..6777933f1b0c727411b730fdbf1675ff2cb2b9ee 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -1,3 +1,8 @@
+2007-03-15    <layer@HOBART>
+
+	* aclpc/acl-class.lisp: remove warning due to bogus decl
+	* aclpc/acl-medium.lisp: remove warning due to bogus decl
+
 2007-03-14  Duane Rettig  <duane@franz.com>
 
 	* silica/graphics.lisp: Remove bogus declaration
@@ -6116,4 +6121,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile
 	Lots of other stuff
 
 *******************************************************************************
-$Revision: 2.28 $
+$Revision: 2.29 $
diff --git a/aclpc/acl-class.lisp b/aclpc/acl-class.lisp
index 52dae4399259abb1d89682943724405ca9f02050..b571ff9219a582d8fbe07a038d232013258414c5 100644
--- a/aclpc/acl-class.lisp
+++ b/aclpc/acl-class.lisp
@@ -17,7 +17,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: acl-class.lisp,v 2.15 2006/10/10 18:05:07 layer Exp $
+;; $Id: acl-class.lisp,v 2.16 2007/03/15 16:54:19 layer Exp $
 
 #|****************************************************************************
 *                                                                            *
@@ -410,7 +410,7 @@
                     ((eql msg win:WM_HSCROLL) win:SB_HORZ)
                     ((eql msg win:WM_VSCROLL) win:SB_VERT)))
          (redraw 1))
-    (declare (fixnum action position))
+    (declare (fixnum position))
     (assert bar)
     ;; By convention, scroll bar values should always have a range of 
     ;; 0 to *win-scroll-grain*.
diff --git a/aclpc/acl-medium.lisp b/aclpc/acl-medium.lisp
index 96909a3925068830b32aef4564171edee944496a..8bede22c0199a5ab2efe443816c1e89189cb011e 100644
--- a/aclpc/acl-medium.lisp
+++ b/aclpc/acl-medium.lisp
@@ -17,7 +17,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: acl-medium.lisp,v 2.7 2005/12/08 21:25:42 layer Exp $
+;; $Id: acl-medium.lisp,v 2.8 2007/03/15 16:54:19 layer Exp $
 
 #|****************************************************************************
 *                                                                            *
@@ -1617,8 +1617,7 @@ device-independent bitmap, an icon, nor a cursor."))
 	     (array (make-array (list height width)))
 	     (pixels (read-strings))
 	     (i 0))
-	(declare (type (simple-array t (* *)) array)
-		 (string row))
+	(declare (type (simple-array t (* *)) array))
 	(excl::fast
 	 (dolist (row pixels)
 	   (let ((index 0))