diff --git a/COPYING b/COPYING
new file mode 100644
index 0000000..05fb3aa
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,24 @@
+Copyright (c) 2006 Eric Knauel
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. The name of the authors may not be used to endorse or promote products
+   derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/bytevec-42.scm b/bytevec-42.scm
index 70dba1e..0530ecf 100644
--- a/bytevec-42.scm
+++ b/bytevec-42.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 (define-syntax byte-vector-ec
   (syntax-rules ()
     ((byte-vector-ec etc1 etc ...)
diff --git a/mysql.scm b/mysql.scm
index ea1fc96..447895a 100644
--- a/mysql.scm
+++ b/mysql.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 (define (msg . args)
   (display (apply format args)))
 
diff --git a/net-s48.scm b/net-s48.scm
index 19c6aa5..8a4805b 100644
--- a/net-s48.scm
+++ b/net-s48.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 (define (write-string str port)
   (do-ec (:string c str)
     (write-char c port)))
diff --git a/net-scsh.scm b/net-scsh.scm
index d48f49e..9525ece 100644
--- a/net-scsh.scm
+++ b/net-scsh.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 (define (to-ip-address string-or-number)
   (cond
    ((string? string-or-number)
diff --git a/packages.scm b/packages.scm
index 44e5ed3..fd8f952 100644
--- a/packages.scm
+++ b/packages.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 ;;; enum-sets
 ;;; #########
 
diff --git a/sha1.scm b/sha1.scm
index 5bd0d3f..8abfbbe 100644
--- a/sha1.scm
+++ b/sha1.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 ;;; make a mask with COUNT 1 bits shifted START bits left
 (define (make-extract-mask start count)
   (let lp ((count count) (mask 0))
diff --git a/util.scm b/util.scm
index 1e7552f..1fb1888 100644
--- a/util.scm
+++ b/util.scm
@@ -1,3 +1,5 @@
+;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
+
 (define (string->byte-vector str)
   (byte-vector-ec (:string c str)
     (char->ascii c)))