--- a/Smalltalk.st	Wed Nov 17 17:53:49 2010 +0100
+++ b/Smalltalk.st	Thu Nov 18 11:26:49 2010 +0100
@@ -24,7 +24,7 @@
 		BitmapDirName PackageDirName FileInDirName ChangeFileName
 		ImageStartTime ImageRestartTime DemoMode SaveEmergencyImage
 		SpecialObjectArray CallbackSignal KnownPackages
-		ClassesFailedToInitialize HasNoConsole'
+		ClassesFailedToInitialize HasNoConsole IgnoreHalt'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -1670,6 +1670,34 @@
     ^ self primitiveFailed
 !
 
+ignoreHalt
+    "return true, if halts are ignored.
+     Usually, this is done in standAlone applications"
+
+    IgnoreHalt isNil ifTrue:[
+        ^  self isStandAloneApp 
+    ].
+    ^ IgnoreHalt
+
+    "Created: / 18-11-2010 / 11:20:16 / cg"
+!
+
+ignoreHalt:aBoolean
+    "control if halts are to be ignored; 
+     usually, this is done in standAlone applications"
+
+    IgnoreHalt := aBoolean
+
+    "
+     Smalltalk ignoreHalt:true.
+     self halt.
+     Smalltalk ignoreHalt:false.
+     self halt.
+    "
+
+    "Created: / 18-11-2010 / 11:20:27 / cg"
+!
+
 vmInstructionTrace:aBoolean
 
 
@@ -7438,9 +7466,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.945 2010-11-16 16:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.946 2010-11-18 10:26:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.945 2010-11-16 16:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.946 2010-11-18 10:26:49 cg Exp $'
 ! !