--- a/GenericException.st	Fri Aug 16 19:51:57 2013 +0200
+++ b/GenericException.st	Fri Aug 16 19:55:22 2013 +0200
@@ -173,7 +173,8 @@
 
 initialize
     NotifierString := 'unknown exception'.
-    StrictRaising := false.     "set to true to check whether a signal may be raised proceedable"
+    "force strict signal checking in Smalltalk development - nobody cares otherwise"
+    StrictRaising := Smalltalk isStandAloneApp not.     "set to true to check whether a signal may be raised proceedable"
 
     "Modified: / 04-08-1999 / 09:06:26 / stefan"
     "Modified: / 17-11-2010 / 17:53:13 / cg"
@@ -1570,12 +1571,11 @@
 
     |con rCon|
 
-"/    proceedable ifFalse:[
-"/        "proceed from ProceedError to recover from this error"
-"/        ProceedError raiseRequestWith:self.
-"/        proceedable := true.
-"/    ].
-
+    (StrictRaising and:[proceedable not]) ifTrue:[
+        "proceed from ProceedError to recover from this error"
+        ProceedError raiseRequestWith:self.
+        proceedable := true.
+    ].
 
     thisContext evaluateUnwindActionsUpTo:suspendedContext.
 
@@ -2354,11 +2354,11 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.144 2013-08-16 17:55:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.143 2013-07-30 19:18:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.144 2013-08-16 17:55:22 stefan Exp $'
 ! !