diff --git a/src/ca65html/ca65html b/src/ca65html/ca65html
index 4b7c3a872..fd6287788 100755
--- a/src/ca65html/ca65html
+++ b/src/ca65html/ca65html
@@ -576,7 +576,7 @@ sub Process2 {
 	    $Label = $Labels{$OutName}{$Id};
 
 	    # Print the label with a tag
-       	    $OutLine .= sprintf ("<a name=\"%s\">%s%s</a>%s%s", $Label, $1, $2, $3, $4);
+       	    $OutLine .= sprintf ("<a name=\"%s\">%s%s</a>%s", $Label, $1, $2, $3);
 	}
 
 	# Print any leading whitespace and remove it, so we don't have to