From 901f6de0a1ece0a74fdca5b59ceb3bf581de6270 Mon Sep 17 00:00:00 2001
From: "Greg J. Badros" <gjb@cs.washington.edu>
Date: Wed, 15 Dec 1999 16:35:07 +0000
Subject: [PATCH] Search lots of different places, just to be safe, for now.

---
 ice-9/doc.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ice-9/doc.scm b/ice-9/doc.scm
index 82db0792a..1e14d5ea7 100644
--- a/ice-9/doc.scm
+++ b/ice-9/doc.scm
@@ -1,4 +1,4 @@
-;;; $Id: doc.scm,v 1.2 1999-12-15 16:32:36 gjb Exp $
+;;; $Id: doc.scm,v 1.3 1999-12-15 16:35:07 gjb Exp $
 ;;;; 	Copyright (C) 1999 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
@@ -35,8 +35,8 @@
     (if (string? (car zz)) (display (car zz) port) (write (car zz) port))))
 
 (define-public doc-files
-  (list (string-append (%library-dir) "/guile-procedures.txt")
-	"./guile-procedures.txt"))
+  (map (lambda (x) (string-append (x) "/guile-procedures.txt"))
+       (list %library-dir %package-data-dir %site-dir (lambda () "."))))
 
 (define-public (hook-documentation hook)
   "Return the docstring for HOOK."