diff --git a/ChangeLog b/ChangeLog
index ff2f5090da..95d071f1a3 100644
--- a/ChangeLog
+++ b/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.
diff --git a/src/scm/main.scm b/src/scm/main.scm
index 15f2634fa5..a986f6afcf 100644
--- a/src/scm/main.scm
+++ b/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