diff --git a/doc/README b/doc/README
index 2bf93bdf1f..b23cf43fb9 100644
--- a/doc/README
+++ b/doc/README
@@ -586,6 +586,7 @@ Henning Spruth <spruth@bigfoot.com> for German text & euro date rework
 Robby Stephenson <parys@freewwweb.com> register patch
 Herbert Thoma <tma@iis.fhg.de> gnome register patch
 Diane Trout <detrout@earthlink.net> scheme qif import patch
+Richard Wackerbarth <rkw@dataplex.net> patch to gnc-prices
 Rob Walker <rob@valinux.com> guile and register patches
 David Woodhouse <dwmw2@infradead.org> Great Britain translations
 Ken Yamaguchi <gooch@ic.EECS.Berkeley.EDU> QIF import fixes; MYM import
diff --git a/doc/html/C/xacc-about.html b/doc/html/C/xacc-about.html
index 70a334a72b..30204af630 100644
--- a/doc/html/C/xacc-about.html
+++ b/doc/html/C/xacc-about.html
@@ -456,6 +456,10 @@
 
       <dd>scheme qif import patch</dd>
 
+      <dt> <a href="mailto:rkw@dataplex.net"> Richard Wackerbarth</a></dt>
+
+      <dd>patch to gnc-prices</dd>
+
       <dt> <a href="mailto:rob@valinux.com"> Rob Walker</a></dt>
 
       <dd>guile and register patches</dd>
diff --git a/src/quotes/gnc-prices b/src/quotes/gnc-prices
index b3cc3a05c2..2ff6736f4c 100755
--- a/src/quotes/gnc-prices
+++ b/src/quotes/gnc-prices
@@ -21,7 +21,7 @@ use gnucash;
 
 # --------------------------------------------------
 # @account_list = &account_flatlist ($account_group);
-# This rouine accepts a pointer to a group, returns 
+# This routine accepts a pointer to a group, returns 
 # a flat list of all of the children in the group.
 
 sub account_flatlist 
@@ -59,6 +59,7 @@ sub checkprice
   my $dayte = $_[1];
   my ($query, $datesecs, $earliest, $latest);
   my ($splitlist, $i, $split, $action);
+  my $retn_value = 0;
 
   $datesecs = gnucash::xaccScanDateS ($dayte);
   $earliest = $datesecs - 16*3600;        # subtract 16 hours
@@ -70,17 +71,17 @@ sub checkprice
 
   $i = 0;
   $split = gnucash::IthSplit ($splitlist, $i);
-  while ($split)
+  while ($split && ($retn_value == 0))
   {
     $action = gnucash::xaccSplitGetAction ($split);
-    if ($action eq "Price") { return 1; }
+    if ($action eq "Price") { $retn_value = 1; }
     $i++;
     $split = gnucash::IthSplit ($splitlist, $i);
   }
 
   gnucash::xaccFreeQuery ($query);
 
-  return 0;
+  return $retn_value;
 }
 
 # --------------------------------------------------