--- a/GenericException.st	Fri Dec 07 19:05:49 2001 +0100
+++ b/GenericException.st	Fri Dec 07 19:13:17 2001 +0100
@@ -15,7 +15,7 @@
 Object subclass:#GenericException
 	instanceVariableNames:'signal parameter errorString suspendedContext handlerContext
 		rejected originator proceedable handlingException'
-	classVariableNames:''
+	classVariableNames:'StrictRaising'
 	poolDictionaries:''
 	category:'Kernel-Exceptions'
 !
@@ -2041,8 +2041,11 @@
     ].
 
     self mayProceed ifFalse:[
-        "/ proceeding from wrongProceedabilitySignal grants the raiseRequest
-        WrongProceedabilityError raiseRequestWith:signal
+        'Exception [warning]: WrongProceedability' errorPrintCR.
+        StrictRaising == true ifTrue:[
+            "/ proceeding from wrongProceedabilitySignal grants the raiseRequest
+            WrongProceedabilityError raiseRequestWith:signal
+        ].
     ].
 
     proceedable := true.
@@ -2095,6 +2098,6 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.58 2001-12-03 18:28:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.59 2001-12-07 18:13:17 cg Exp $'
 ! !
 GenericException initialize!