diff --git a/lib/unpacker.c b/lib/unpacker.c
index 4c505cc7..47b664e9 100644
--- a/lib/unpacker.c
+++ b/lib/unpacker.c
@@ -64,6 +64,7 @@ char *unpacker(char *fn)
 	if (memcmp(buf,"ZOO",3) == 0)		return (char *)"ZOO";
 	if (memcmp(buf,"`\352",2) == 0)		return (char *)"ARJ";
 	if (memcmp(buf,"Rar!",4) == 0)		return (char *)"RAR";
+	if (memcmp(buf,"HA",2) == 0)		return (char *)"HA";
 	if (memcmp(buf,"UC2\0x1a",4) == 0)	return (char *)"UC2";
 	if (memcmp(buf,"BZ",2) == 0)		return (char *)"BZIP";
 	if (memcmp(buf,"MSCF",4) == 0)		return (char *)"CAB";   /* M$ CAB files	    */
diff --git a/mbsebbs/filesub.c b/mbsebbs/filesub.c
index 6e12c879..ca8a7265 100644
--- a/mbsebbs/filesub.c
+++ b/mbsebbs/filesub.c
@@ -717,6 +717,7 @@ char *GetFileType(char *fn)
 	if (memcmp(buf, "ZOO", 3) == 0)			return (char *)"ZOO";
 	if (memcmp(buf, "`\352", 2) == 0)		return (char *)"ARJ";
 	if (memcmp(buf, "Rar!", 4) == 0)		return (char *)"RAR";
+	if (memcmp(buf, "HA", 2) == 0)			return (char *)"HA";
 	if (memcmp(buf, "MZ", 2) == 0)			return (char *)"EXE";
 	if (memcmp(buf, "\000\000\001\263", 4) == 0)	return (char *)"MPEG";
 	if (memcmp(buf, "MOVI", 4) == 0)		return (char *)"MOVI";