--- a/MiniDebugger.st	Mon Oct 27 22:29:07 2003 +0100
+++ b/MiniDebugger.st	Mon Oct 27 23:59:14 2003 +0100
@@ -91,16 +91,16 @@
         ].
 
         Error handle:[:ex |
-            'cannot raise AbortSignal - exiting ...' errorPrintCR.
+            'cannot raise Abort - exiting ...' errorPrintCR.
             Smalltalk exit.
         ] do:[
-            AbortSignal raise.
+            AbortOperationRequest raise.
         ]
     ] ifTrue:[
         self new enter:aContext mayProceed:mayProceed.
     ].
     mayProceed ifFalse:[
-        AbortSignal raise
+        AbortOperationRequest raise
     ].
     ^ nil
 
@@ -207,8 +207,8 @@
 
     stillHere := true.
     [stillHere] whileTrue:[
-        AbortSignal handle:[:ex |
-            '** Abort Signal cought - back in previous debugLevel' printCR.
+        AbortOperationRequest handle:[:ex |
+            '** Abort cought - back in previous debugLevel' printCR.
         ] do:[
             Error handle:[:ex |
                 'Error while executing command: ' print.
@@ -537,7 +537,7 @@
             proc notNil ifTrue:[
                 'aborting process id: ' print. id printCR.
                 valid := true.
-                proc interruptWith:[AbortSignal raise]
+                proc interruptWith:[AbortOperationRequest raise]
             ] ifFalse:[
                 'aborting' printCR.
             ]
@@ -786,5 +786,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.60 2003-10-27 20:09:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.61 2003-10-27 22:59:14 cg Exp $'
 ! !