--- aging.scm-backup	2007-01-09 06:03:23.000000000 +0200
+++ aging.scm	2007-02-19 02:25:44.000000000 +0200
@@ -198,20 +198,25 @@
 	     ;; if it's an existing company, destroy the temp owner and
 	     ;; then make sure the currencies match
 	     (begin
-	       (gnc:owner-destroy temp-owner)
 	       (if (not (gnc:commodity-equiv?
 			 this-currency
 			 (company-get-currency company-info)))
+	           (begin
+	    	   (gnc:debug "IGNORING TRANSACTION!" "Invoice Owner: " (gnc:owner-get-name owner)
+	    	        "Transaction GUID:" (gnc:transaction-get-guid transaction)
+	    		"Transaction Currency" (gnc:commodity-get-mnemonic this-currency)
+	    		"Client Currency" (gnc:commodity-get-mnemonic(company-get-currency company-info)))
 		   (cons #f (sprintf
 			     (_ "Transactions relating to '%s' contain \
-more than one currency.  This report is not designed to cope with this possibility.")  (gnc:owner-get-name owner)))
+more than one currency.  This report is not designed to cope with this possibility.")  (gnc:owner-get-name owner))))
 		   (begin
 		     (gnc:debug "it's an old company")
 		     (if (gnc:numeric-negative-p value)
 			 (process-invoice company-info (gnc:numeric-neg value) bucket-intervals this-date)
 			 (process-payment company-info value))
 		     (hash-set! hash guid company-info)
-		     (cons #t guid))))
+		     (cons #t guid)))
+	       (gnc:owner-destroy temp-owner))
 		 
 	     ;; if it's a new company
 	     (begin
