--- trunk/openisis/perl/OpenIsis.pm	2004/03/11 18:20:19	258
+++ trunk/openisis/perl/OpenIsis.pm	2004/03/11 18:23:59	259
@@ -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