diff --git a/harbour/source/rtl/tclass.prg b/harbour/source/rtl/tclass.prg
index 912d0c3326..11410766d3 100644
--- a/harbour/source/rtl/tclass.prg
+++ b/harbour/source/rtl/tclass.prg
@@ -262,7 +262,7 @@ STATIC PROCEDURE Create(MetaClass)
    NEXT
 
    IF ::nOnError != NIL
-      __clsAddMsg( hClass, ::nOnError, NIL, HB_OO_MSG_ONERROR )
+      __clsAddMsg( hClass, "__OnError", ::nOnError, HB_OO_MSG_ONERROR )
    ENDIF
 
    RETURN