Index: openacs-4/packages/accounts-finance/tcl/finance-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/accounts-finance/tcl/finance-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/accounts-finance/tcl/finance-procs.tcl	23 May 2010 12:08:05 -0000	1.6
+++ openacs-4/packages/accounts-finance/tcl/finance-procs.tcl	23 May 2010 12:20:37 -0000	1.7
@@ -341,8 +341,9 @@
      set interest 0.
      set payment 0.
      set balance $principal
+     set payoff $principal
 
-     while { $balance > 0. && $period <= $end_period && $period <= $payments_list_count } {
+     while { $payoff > 0. && $period <= $end_period && $period <= $payments_list_count } {
 
          if { $payment > $interest } {
              set payment_principal [expr { $payment - $interest } ]