diff --git a/tools/piglatin.lisp b/tools/piglatin.lisp
index 56797b79c1e3eecedc4b35e5efa562e27d1ae71b..b97a503dcdc9d4df7c09b784f616a3eae0820c0b 100644
--- a/tools/piglatin.lisp
+++ b/tools/piglatin.lisp
@@ -1,3 +1,14 @@
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CL-USER -*-
+;;;
+;;; A very rudimentary machine translator to convert English to Pig
+;;; Latin.  Written by Paul Foley.
+;;;
+;;; DO-TRANSLATIONS will translate all of the pot files in the given
+;;; directory, placing the translations in the subdirectory
+;;; en@piglatin/LC_MESSAGES.
+
+(in-package "CL-USER")
+
 (defun latinize-1 (word)
   (cond ((string= word "I") "Iway")
 	((string= word "a") "away")