--- a/Object.st	Fri Apr 19 10:41:25 2013 +0200
+++ b/Object.st	Fri Apr 19 11:34:51 2013 +0200
@@ -681,7 +681,6 @@
     "
 ! !
 
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -4407,13 +4406,13 @@
         ].
 
         Smalltalk isStandAloneApp ifTrue:[
-            (ex signal == NoHandlerError and:[HaltInterrupt handles:ex unhandledException]) ifTrue:[
+            (ex creator == NoHandlerError and:[HaltInterrupt handles:ex exception]) ifTrue:[
                 "/ 'Halt ignored' infoPrintCR.
                 ^ nil
             ].
             "don't output the message, if the exception is a UserInterrupt (CTRL-C)"
-            (ex signal == NoHandlerError
-             and:[ex unhandledException signal == UserInterrupt]) ifTrue:[
+            (ex creator == NoHandlerError
+             and:[ex exception creator == UserInterrupt]) ifTrue:[
                 ex description errorPrintCR.
                 OperatingSystem exit:130.
             ].
@@ -4481,8 +4480,8 @@
         ].
 
         "don't output the message, if the exception is a UserInterrupt (CTRL-C)"
-        (ex signal == NoHandlerError
-         and:[ex unhandledException signal == UserInterrupt]) ifTrue:[
+        (ex creator == NoHandlerError
+         and:[ex exception creator == UserInterrupt]) ifTrue:[
             OperatingSystem exit:130.
         ].
         msgString errorPrintCR.
@@ -7436,7 +7435,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 ?: selector
@@ -9656,11 +9654,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.715 2013-04-02 15:47:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.716 2013-04-19 09:34:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.715 2013-04-02 15:47:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.716 2013-04-19 09:34:51 cg Exp $'
 !
 
 version_SVN