--- a/Object.st	Tue Dec 09 14:59:41 2008 +0100
+++ b/Object.st	Tue Dec 09 15:17:14 2008 +0100
@@ -1649,6 +1649,7 @@
     "Modified: / 18.2.2000 / 11:32:19 / cg"
 ! !
 
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -7063,14 +7064,14 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 askFor:aSelector
     "try to send the receiver the message, aSelector.
      If it does not understand it, return false.
      Otherwise the real value returned.
-     Useful to send messages such as: #isColor to unknown
-     receivers."
+     Useful to send messages such as: #isColor to unknown receivers."
 
     ^ self perform:aSelector ifNotUnderstood:[false]
 
@@ -7083,6 +7084,15 @@
     "
 !
 
+askFor:aSelector with:argument
+    "try to send the receiver the message, aSelector.
+     If it does not understand it, return false.
+     Otherwise the real value returned.
+     Useful to send messages such as: #isXXX: to unknown receivers."
+
+    ^ self perform:aSelector with:argument ifNotUnderstood:[false]
+!
+
 perform:aSelector ifNotUnderstood:exceptionBlock
     "try to send message aSelector to the receiver.
      If its understood, return the methods returned value,
@@ -9162,7 +9172,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.618 2008-11-22 10:59:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.619 2008-12-09 14:17:14 cg Exp $'
 ! !
 
 Object initialize!