From 1bc25a0b4e0e5c82fd7ac36e9e696e1b69bdee73 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 4 Nov 2001 16:22:40 +0000
Subject: [PATCH] __ClsAddMsg() case HB_OO_MSG_ONERROR modifed to use hb_parnl(
 3 )

---
 harbour/source/vm/classes.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index cc623632e2..e10342481e 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -1082,7 +1082,7 @@ HB_FUNC( __CLSADDMSG )
 
          case HB_OO_MSG_ONERROR:
 
-            pClass->pFunError = ( PHB_FUNC ) hb_parnl( 2 );
+            pClass->pFunError = ( PHB_FUNC ) hb_parnl( 3 );
             break;
 
          default: