--- src/lharc.c.ext	Wed Jan 15 10:49:30 1997
+++ src/lharc.c	Mon Jun 28 12:37:40 1999
@@ -963,6 +963,7 @@
 	}
 	if (p = (char *) rindex(archive_name, '.')) {
 		if (strucmp(".LZH", p) == 0
+		    || strucmp(".LHA", p) == 0	/* Amiga */
 		    || strucmp(".LZS", p) == 0
 		    || strucmp(".COM", p) == 0	/* DOS SFX */
 		    || strucmp(".EXE", p) == 0
@@ -975,6 +976,11 @@
 
 	if (open_old_archive_1(archive_name, &fp))
 		return fp;
+	sprintf(expanded_archive_name, "%s%s", archive_name, ARCHIVENAME_EXTENTION);
+	if (open_old_archive_1(expanded_archive_name, &fp)) {
+		archive_name = expanded_archive_name;
+		return fp;
+	}
 	sprintf(expanded_archive_name, "%s.lzh", archive_name);
 	if (open_old_archive_1(expanded_archive_name, &fp)) {
 		archive_name = expanded_archive_name;