diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e456c05079..9c4ccf7991 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990919-15:45 GMT+2 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/vm/hvm.c
+	* added checking if starting symbol name points to a function
+	
 19990919-14:25 GMT+2 Ryszard Glab <rglab@imid.med.pl>
 
     *soource/rtl/console.c
diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index 12285e3ba9..c4f27542ad 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -201,14 +201,14 @@ int main( int argc, char * argv[] )
    {
       PHB_DYNS pDynSym = hb_dynsymFind( "_APPMAIN" );
 
-      if( pDynSym )
+      if( pDynSym && pDynSym->pSymbol->pFunPtr )
          s_pSymStart = pDynSym->pSymbol;
 #ifdef HARBOUR_START_PROCEDURE
       else
       {
          pDynSym = hb_dynsymFind( HARBOUR_START_PROCEDURE );
 
-         if( pDynSym )
+         if( pDynSym && pDynSym->pSymbol->pFunPtr )
             s_pSymStart = pDynSym->pSymbol;
          else
             hb_errInternal( 9999, "Can\'t locate the starting procedure: \'%s\'", HARBOUR_START_PROCEDURE, NULL );