--- openisis/current/perl/OpenIsis.pm	2005/01/01 22:07:36	624
+++ openisis/current/perl/OpenIsis.pm	2005/01/01 22:07:58	625
@@ -81,7 +81,7 @@
 
 sub MHL {
 	for ( @_ ) {
-		s/(<[^=>]*)=[^>]+>/\1>/g; # dump <a=b> substitutions
+		s/(<[^=>]*)=[^>]+>/$1>/g; # dump <a=b> substitutions
 		s/></; /g; # replace >< pairs
 		s/[><]//g; # nuke other ><
 		s/^\^.//; # kill initial subfield spec