--- a/tests/frame.el	Fri Feb 05 08:09:03 2010 -0600
+++ b/tests/frame.el	Fri Feb 05 10:50:06 2010 -0700
@@ -1,4 +1,24 @@
-;;; Test geometry settings for frames
+;;; Test geometry setting for frames.
+;;;
+;;; Copyright (C) 1997 Martin Buchholz
+;;;
+;;; This file is part of XEmacs.
+;;;
+;;; XEmacs is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your
+;;; option) any later version.
+;;;
+;;; XEmacs is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with XEmacs; see the file COPYING.  If not, write to the Free
+;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;;; Boston, MA 02110-1301, USA.
+
 (defmacro check-frame-geometry (xx yy)
   `(loop for frame in (list nil (selected-frame))
 	 do
@@ -24,4 +44,3 @@
 	    (check-frame-geometry x (+ y 3))
 	    (set-frame-property frame 'left (+ x 3))
 	    (check-frame-geometry (+ x 3) (+ y 3))))
-