*** lhadd.c.old	Mon Dec 25 11:54:50 1989
--- lhadd.c	Fri Jan 19 13:32:06 1990
***************
*** 7,10 ****
--- 7,11 ----
  /*  V0.00  Original				1988.05.23  Y.Tagawa	*/
  /*  V1.00  Fixed				1989.09.22  Y.Tagawa	*/
+ /*  V1.02  Bug fix				1990.01.19  Y.Tagawa	*/
  /*----------------------------------------------------------------------*/
  
***************
*** 35,45 ****
    writting_filename = temporary_name;
  
-   org_pos = ftell (fp);
    header_pos = ftell (nafp);
    write_header (nafp, hdr);	/* DUMMY */
  
!   if (hdr->original_size == 0)
      return;			/* previous write_header is not DUMMY. (^_^) */
  
    data_pos = ftell (nafp);
    hdr->crc = encode_lzhuf (fp, nafp, hdr->original_size,
--- 36,46 ----
    writting_filename = temporary_name;
  
    header_pos = ftell (nafp);
    write_header (nafp, hdr);	/* DUMMY */
  
!   if (hdr->original_size == 0)	/* empty file or directory */
      return;			/* previous write_header is not DUMMY. (^_^) */
  
+   org_pos = ftell (fp);
    data_pos = ftell (nafp);
    hdr->crc = encode_lzhuf (fp, nafp, hdr->original_size,
***************
*** 101,104 ****
--- 102,107 ----
    if (!directory && !noexec)
      fp = xfopen (name, READ_BINARY);
+   else
+     fp = NULL;
  
    while (oafp)
*** lharc.c.old	Mon Dec 25 13:52:03 1989
--- lharc.c	Fri Jan 19 13:36:32 1990
***************
*** 82,86 ****
  {
    fprintf (stderr, "\
! LHarc for UNIX  V1.01   Copyright(C) 1989  Y.Tagawa\n\
  usage: lharc {axelvudmcp}[qvnftgvd] archive_file [files or directories...]\n\
  commands:				options:\n\
--- 82,86 ----
  {
    fprintf (stderr, "\
! LHarc for UNIX  V1.02   Copyright(C) 1989  Y.Tagawa\n\
  usage: lharc {axelvudmcp}[qvnftgvd] archive_file [files or directories...]\n\
  commands:				options:\n\
