diff --git a/Native.pas b/Native.pas
index 1f5652f..e48e711 100644
--- a/Native.pas
+++ b/Native.pas
@@ -2053,9 +2053,9 @@ procedure GenImpliedForFlags {p_opcode: integer};
 { parameters:                                                   }
 {       p_code - operation code (m_tax or m_tay)                }
 
-begin {GenImplied}
+begin {GenImpliedForFlags}
 GenNative(p_opcode, implied, 0, nil, forFlags);
-end; {GenImplied}
+end; {GenImpliedForFlags}
 
 
 procedure GenCall {callNum: integer};