--- a/ProceedError.st	Wed Aug 04 16:25:44 1999 +0200
+++ b/ProceedError.st	Wed Aug 04 16:35:58 1999 +0200
@@ -37,9 +37,37 @@
 
 ! !
 
+!ProceedError methodsFor:'default actions'!
+
+defaultAction
+    "make proceeding from a non-proceedable raise a warning for now.
+     This will change in future revisions"
+
+    ('WARNING: signal <', parameter signal printString, '> has been raised nonproceedable') errorPrintCR.
+    ('         by: ', parameter suspendedContext printString) errorPrintCR.
+    ('         ', suspendedContext printString , ' tries to proceed.') errorPrintCR.
+    ('         This will be an error in future ST/X versions.') errorPrintCR.
+
+    self proceedWith:nil.
+
+    "
+      Object errorSignal handle:[:ex|
+         ex proceedWith:nil
+      ] do:[
+         Object errorSignal raise
+      ].
+
+      Object errorSignal handle:[:ex|
+         ex proceed
+      ] do:[
+         Object errorSignal raise
+      ].
+   "
+! !
+
 !ProceedError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.1 1999-08-04 14:12:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.2 1999-08-04 14:35:58 stefan Exp $'
 ! !
 ProceedError initialize!