diff --git a/ChangeLog b/ChangeLog
index 061614be5a..a3b02f2ffb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-28  Christian Stimming  <stimming@tuhh.de>
+
+	* src/import-export/import-backend.c: Aaarg. Fixed extremely
+	stupid bug in the import value setting workaround.
+
 2003-08-19  Chris Lyttle  <chris@wilddev.net>
 
 	* src/scm/main.scm: Update for 1.8.5 release
diff --git a/src/import-export/import-backend.c b/src/import-export/import-backend.c
index 345f84ce0c..cf3aa119cc 100644
--- a/src/import-export/import-backend.c
+++ b/src/import-export/import-backend.c
@@ -828,16 +828,15 @@ gnc_import_process_trans_clist (GtkCList *clist,
 			       (gnc_import_TransInfo_get_trans (trans_info))),
 	       xaccTransGetCurrency 
 	       (gnc_import_TransInfo_get_trans (trans_info)));*/
-	    /* This is a quick workaround for the bug described in
-	       http://gnucash.org/pipermail/gnucash-devel/2003-August/009982.html  */
-	    xaccSplitSetValue
-	      (split, 
-	       gnc_numeric_neg(xaccTransGetImbalance 
-			       (gnc_import_TransInfo_get_trans (trans_info))));
-	    xaccSplitSetAmount
-	      (split, 
-	       gnc_numeric_neg(xaccTransGetImbalance 
-			       (gnc_import_TransInfo_get_trans (trans_info))));
+	    {
+	      /* This is a quick workaround for the bug described in
+		 http://gnucash.org/pipermail/gnucash-devel/2003-August/009982.html  */
+	      gnc_numeric v = 
+		gnc_numeric_neg (xaccTransGetImbalance 
+				 (gnc_import_TransInfo_get_trans (trans_info)));
+	      xaccSplitSetValue (split, v);
+	      xaccSplitSetAmount (split, v);
+	    }
 	    xaccSplitSetMemo (split, _("Auto-Balance split"));
 	  }