From b3c46b48456aff270757ef10ec7fba97a701cb78 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 4 Nov 2001 16:26:30 +0000
Subject: [PATCH] __ClsAddMsg() call, for ON ERROR clause, modified suplied
 parameters

---
 harbour/source/rtl/tclass.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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