diff --git a/code/generic-site.lisp b/code/generic-site.lisp
index 574ea21bc119b5b08325eff4a2ce0e1e2bfb63ed..a2f9ed64aabea49345c9acc047337bdb06ed04c4 100644
--- a/code/generic-site.lisp
+++ b/code/generic-site.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.1 1991/10/17 18:56:58 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.2 1991/10/22 13:17:13 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,12 +16,30 @@
 ;;;
 (in-package "SYSTEM")
 
-;;; Define the site to be undefined.
+;;; Put your site name here...
 (setq *short-site-name* "Unknown")
 (setq *long-site-name* "Site name not initialized")
 
+;;; The following Hemlock initializations will error if run in a core without
+;;; hemlock.
+
+;;; If you have sources installed on your system, un-comment the following form
+;;; and change it to point to the source location.  This will allow the Hemlock
+;;; "Edit Definition" command to find sources for functions in the core.  If
+;;; this doesn't work, check that first part of the translation really does
+;;; have the correct prefix.
+;;;
+#|
+(ed::add-definition-dir-translation
+ "/afs/cs.cmu.edu/project/clisp-1/sun4c_41/15/"
+ "<your source location here>")
+|#
+
 ;;; Use standard X fonts for Hemlock, since the default ones may not work
-;;; everywhere.
+;;; everywhere.  By default, Hemlock used 8x13 and a non-standard underline
+;;; font, 8x13u (which is part of the distribution.)  Unfortunately, we don't
+;;; have source for this font, since it was created by hand-editing the
+;;; bitmaps.
 ;;;
 (hi:setv ed::open-paren-highlighting-font "*-courier-bold-r-normal--12-*")
 (hi:setv ed::default-font "*-courier-medium-r-normal--12-*")