* src/scm/main.scm -- fix the load of price-quotes on guile-1.4.1

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7515 57a11ea4-9604-0410-9ed3-97b8803252fd

ChangeLog

@@ -1,6 +1,8 @@
 2002-11-21  Derek Atkins  <derek@ihtfp.com>
 	* business-core/test/*.c -- fix the tests for begin/commit edit
 
+	* src/scm/main.scm -- fix the load of price-quotes on guile-1.4.1
+	
 2002-11-21  Benoit Grégoire  <bock@step.polymtl.ca>
 	* src/import-export/Transaction-matcher.c: Tweak the matching
 	heuristics.

src/scm/main.scm

@@ -139,7 +139,7 @@
   (cond
    ((or (string=? "1.3" (version))
         (string=? "1.3.4" (version))
-        (string=? "1.4" (version)))
+	(string=? "1.4" (substring (version) 0 3)))
     (lambda (module)
       (process-use-modules (list module))))
    (else