#99860# decrement CallLevel even when compiler error occured

1 files changed, 4 insertions, 2 deletions

diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx
index 3c47f8a1e89b..7fa85f5b3627 100644
--- a/basic/source/classes/sbxmod.cxx
+++ b/basic/source/classes/sbxmod.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: sbxmod.cxx,v $
  *
- *  $Revision: 1.8 $
+ *  $Revision: 1.9 $
  *
- *  last change: $Author: ab $ $Date: 2002-01-08 10:57:34 $
+ *  last change: $Author: gh $ $Date: 2002-07-10 10:54:53 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -651,6 +651,8 @@ USHORT SbModule::Run( SbMethod* pMeth )
                 GlobalRunDeInit();
             }
         }
+        else
+               pINST->nCallLvl--;           // Call-Level wieder runter
     }
     else
         StarBASIC::FatalError( SbERR_STACK_OVERFLOW );