--- a/Object.st	Thu Oct 14 18:54:58 2010 +0200
+++ b/Object.st	Wed Oct 20 10:47:34 2010 +0200
@@ -520,6 +520,7 @@
 
 
 
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -682,7 +683,6 @@
 ! !
 
 
-
 !Object methodsFor:'accessing'!
 
 at:index
@@ -2099,7 +2099,6 @@
 %}
 ! !
 
-
 !Object methodsFor:'converting'!
 
 -> anObject
@@ -7181,6 +7180,21 @@
 
 !Object methodsFor:'secure message sending'!
 
+?: selector
+    "try to send a message to the receiver;
+     if understood, return the value;
+     if not, return nil."
+
+    ^ self perform:selector ifNotUnderstood:nil
+
+    "
+     ApplicationModel new masterApplication resources first             - error
+     ApplicationModel new ?: #masterApplication ?: #resources ?: #first - nil
+    "
+
+    "Modified: / 20-10-2010 / 10:45:21 / cg"
+!
+
 askFor:aSelector
     "try to send the receiver the message, aSelector.
      If it does not understand it, return false.
@@ -9306,11 +9320,11 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.652 2010-08-20 15:51:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.653 2010-10-20 08:47:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.652 2010-08-20 15:51:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.653 2010-10-20 08:47:34 cg Exp $'
 ! !
 
 Object initialize!