diff --git a/lib/ChangeLog b/lib/ChangeLog
index cc1d2ec77b..3d9e1a4346 100644
--- a/lib/ChangeLog
+++ b/lib/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-12  Jean-Marc Lasgouttes  <Jean-Marc.Lasgouttes@inria.fr>
+
+	* scripts/TeXFiles.sh: use -follow predicate in "find" to follow
+	symbolic links
+
 2001-10-11  Jean-Marc Lasgouttes  <Jean-Marc.Lasgouttes@inria.fr>
 
 	* CREDITS: add two unsung heroes
diff --git a/lib/scripts/TeXFiles.sh b/lib/scripts/TeXFiles.sh
index 75ec6c1755..0863b1501b 100755
--- a/lib/scripts/TeXFiles.sh
+++ b/lib/scripts/TeXFiles.sh
@@ -95,18 +95,18 @@ for TEXMFLSR in "$@"; do		# go through the dirs
   echo "Dir: <$TEXMFLSR>"
 case "$1" in				# list all files with suffix bst
     "cls")
-	find $TEXMFLSR -name *.cls >> $CLS_STYLEFILE
+	find $TEXMFLSR -follow -name *.cls >> $CLS_STYLEFILE
     ;;
     "sty")
-	find $TEXMFLSR -name *.sty >> $STY_STYLEFILE
+	find $TEXMFLSR -follow -name *.sty >> $STY_STYLEFILE
     ;;
     "bst")
-	find $TEXMFLSR -name *.bst >> $BST_STYLEFILE
+	find $TEXMFLSR -follow -name *.bst >> $BST_STYLEFILE
     ;;
     *) 
-	find $TEXMFLSR -name *.cls >> $CLS_STYLEFILE
-	find $TEXMFLSR -name *.sty >> $STY_STYLEFILE
-	find $TEXMFLSR -name *.bst >> $BST_STYLEFILE
+	find $TEXMFLSR -follow -name *.cls >> $CLS_STYLEFILE
+	find $TEXMFLSR -follow -name *.sty >> $STY_STYLEFILE
+	find $TEXMFLSR -follow -name *.bst >> $BST_STYLEFILE
     ;;
 esac
 
diff --git a/src/frontends/controllers/ChangeLog b/src/frontends/controllers/ChangeLog
index d2bbf49391..83fccaa9d9 100644
--- a/src/frontends/controllers/ChangeLog
+++ b/src/frontends/controllers/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-12  Jean-Marc Lasgouttes  <Jean-Marc.Lasgouttes@inria.fr>
+
+	* ControlTexinfo.C (getContents): use the right file for .sty files
+
 2001-10-10  Herbert Voss  <voss@perce.de>
 
 	* ControlTexinfo.C: new path for the shellscript TeXFiles.sh
diff --git a/src/frontends/controllers/ControlTexinfo.C b/src/frontends/controllers/ControlTexinfo.C
index 7ebdbb4b71..5c24917d4b 100644
--- a/src/frontends/controllers/ControlTexinfo.C
+++ b/src/frontends/controllers/ControlTexinfo.C
@@ -92,7 +92,7 @@ ControlTexinfo::getContents(texFileSuffix type, bool withFullPath) const
 		filename = clsFilename;
 		break;
 	case sty:
-		filename = clsFilename;
+		filename = styFilename;
 		break;
 	}