diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index de78e4773a..b45c474551 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2000-11-05 10:00 UTC+0100 JFL (mafact) <jfl@mafact.com>
+   * source/vm/classes.c
+     * work around due to the fact HB stack can move
+       from address to address when stack growth.
+       __clsinstsuper() caused GPF
+
 2000-11-04 14:45 UTC+0800 Ron Pinkas <ron@profit-master.com>
 
    * include/hbexpra.c
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index e5a5852dcc..d9a28798de 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -1596,12 +1596,15 @@ HB_FUNC( __OBJSENDMSG )
  */
 HB_FUNC( __CLSINSTSUPER )
 {
-   PHB_ITEM pString = hb_param( 1, HB_IT_STRING );
+   char cString[ HB_SYMBOL_NAME_LEN + 1 ] ;
+   /*PHB_ITEM pString = hb_param( 1, HB_IT_STRING ); */
    BOOL bFound = FALSE;
 
-   if( pString )
+   strcpy( &cString, hb_parc(1) );
+
+   if( /*pString*/ hb_pcount() >= 1 )
    {
-      PHB_DYNS pDynSym = hb_dynsymFind( pString->item.asString.value );
+      PHB_DYNS pDynSym = hb_dynsymFind( cString /*pString->item.asString.value*/ );
 
       if( pDynSym )                             /* Find function            */
       {
@@ -1615,7 +1618,7 @@ HB_FUNC( __CLSINSTSUPER )
          {
             for( uiClass = 0; ! bFound && uiClass < s_uiClasses; uiClass++ )
             {                                      /* Locate the entry         */
-               if( hb_stricmp( pString->item.asString.value, s_pClasses[ uiClass ].szName ) == 0 )
+               if( hb_stricmp( /*pString->item.asString.value*/ cString , s_pClasses[ uiClass ].szName ) == 0 )
                {
                   hb_retni( uiClass + 1 );               /* Entry + 1 = hb___msgClsH    */
                   bFound = TRUE;