*** expense.bak	Sun Jul  2 21:40:18 2000
--- expense.c	Sun Jul  2 21:42:37 2000
***************
*** 262,268 ****
  
     ex.type = glob_detail_type;
     ex.payment = glob_detail_payment;
!    ex.currency=23;
     text = gtk_entry_get_text(GTK_ENTRY(entry_amount));
     ex.amount = text;
     if (ex.amount[0]=='\0') {
--- 262,268 ----
  
     ex.type = glob_detail_type;
     ex.payment = glob_detail_payment;
!    ex.currency=13; /*  Japan = 13,  US$ = 23  */
     text = gtk_entry_get_text(GTK_ENTRY(entry_amount));
     ex.amount = text;
     if (ex.amount[0]=='\0') {