--- a/lisp/prim/help.el	Mon Aug 13 09:15:51 2007 +0200
+++ b/lisp/prim/help.el	Mon Aug 13 09:16:51 2007 +0200
@@ -824,7 +824,7 @@
 	 file-name
          (doc (or (documentation function)
                   (gettext "not documented")))
-	 aliases kbd-macro-p fndef macrop)
+	 aliases home kbd-macro-p fndef macrop)
     (while (symbolp def)
       (or (eq def function)
 	  (if aliases
@@ -834,6 +834,8 @@
 					    (symbol-name def))))
 	    (setq aliases (format "an alias for %s, " (symbol-name def)))))
       (setq def (symbol-function def)))
+    (if (compiled-function-p def)
+	(setq home (compiled-function-annotation def)))
     (if (eq 'macro (car-safe def))
 	(setq fndef (cdr def)
 	      macrop t)
@@ -893,6 +895,8 @@
 	(setq file-name (describe-function-find-file function)))
     (if file-name
 	(princ (format ".\n  -- loads from \"%s\"" file-name) stream))
+    (if home
+	(princ (format ".\n  -- loaded from %s" home)))
     (princ ".")
     (terpri)
     (cond (kbd-macro-p