From 2a9c2efa03dc04837d50911d439b8fd6a26fd4d0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Sun, 31 Jan 2010 07:12:59 +0000 Subject: [PATCH] Fix crash when copying a currently edited transaction in the register. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18591 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/engine/engine-interface.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/engine/engine-interface.scm b/src/engine/engine-interface.scm index bf1aeea2e6..e811320030 100644 --- a/src/engine/engine-interface.scm +++ b/src/engine/engine-interface.scm @@ -181,7 +181,7 @@ (define (gnc:transaction-scm-get-other-split-scm trans-scm split-scm) (let ((split-scms (gnc:transaction-scm-get-split-scms trans-scm))) (cond ((not (= (length split-scms) 2)) #f) - ((= split-scm (car split-scms)) (cadr split-scms)) + ((eq? split-scm (car split-scms)) (cadr split-scms)) (else (car split-scms))))) ;; modifiers