--- a/AbstractOperatingSystem.st	Tue May 08 16:35:12 2001 +0200
+++ b/AbstractOperatingSystem.st	Tue May 08 16:51:00 2001 +0200
@@ -2490,6 +2490,13 @@
     self subclassResonsibility
 !
 
+enablePowerSignalInterrupt
+    "enable powerFail signal exception interrupts (sigPWR).
+     After enabling, this signal will trigger the writing of a crash-image"
+
+    self enableSignal:(self sigPWR).
+!
+
 enableQuitInterrupts
     "enable quitInterrupt (usually ^\) handling, and make it a userInterrupt.
      (the default will dump core and exit - which is not a good idea for
@@ -4243,6 +4250,6 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.46 2000-10-06 15:15:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.47 2001-05-08 14:50:44 cg Exp $'
 ! !
 AbstractOperatingSystem initialize!

--- a/Smalltalk.st	Tue May 08 16:35:12 2001 +0200
+++ b/Smalltalk.st	Tue May 08 16:51:00 2001 +0200
@@ -243,6 +243,7 @@
 
     OperatingSystem enableUserInterrupts.
     OperatingSystem enableHardSignalInterrupts.
+    OperatingSystem enablePowerSignalInterrupt.
 
     ObjectMemory userInterruptHandler:self.
     ObjectMemory signalInterruptHandler:self.
@@ -5972,5 +5973,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.490 2001-04-20 10:35:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.491 2001-05-08 14:51:00 cg Exp $'
 ! !