[Patch] [ 531470 ] In pre59cvs, example(...) doesn't work

Here is a fix for PR [ 531470 ] In pre59cvs, example(...) doesn't work

Please have a good look at it.  I am a "REAL FORTRAN PROGRAMMER".
I am pretty sure I have patched the right file (it works) but 
perhaps not the right line.

THE PROBLEM

Maxima 5.9.0pre-cvs (with enhancements by W. Schelter).
Licensed under the GNU Public License (see file COPYING)
(C1) example(ode2);

Could not find `/usr/local/doc/manual.demo' using paths in FILE_SEARCH_DEMO
 (combined values: [/usr/local/share/maxima/5.9.0pre-cvs/{share,share/algebra,#
share/calculus,share/combinatorics,share/contrib,share/diffequations,share/gra#
phics,share/integequations,share/integration,share/macro,share/matrix,share/mi#
sc,share/numeric,share/physics,share/simplification,share/specfunctions,share/#
sym,share/tensor,share/trigonometry,share/utils,share/vector}/###.{dem,dm1,dm2#
,dm3,dmt},
/usr/local/share/maxima/5.9.0pre-cvs/{demo}/###.{dem,dm1,dm2,dm3,dmt}] )
 -- an error.  Quitting.  To debug this try DEBUGMODE(TRUE);)



THE PROPOSED FIX

--- macdes.lisp.0       2002-06-25 10:46:31.000000000 +1000
+++ macdes.lisp 2002-06-25 10:31:14.000000000 +1000
@@ -20,7 +20,7 @@
      (or (symbolp example)
         (merror
          "First arg ~M to example must be a symbol, eg example(functions)"))
-     (setq file ($file_search1 file '((mlist) $file_search_demo)))
+     (setq file ($file_search1 $manual_demo '((mlist) $file_search_demo)))
      (with-open-file
       (st file)
       (let ( ;*mread-prompt*