--- a/ProtoObject.st	Wed Dec 02 21:30:55 2009 +0000
+++ b/ProtoObject.st	Fri Dec 04 20:30:11 2009 +0000
@@ -48,6 +48,7 @@
 "
 ! !
 
+
 !ProtoObject methodsFor:'error handling'!
 
 doesNotUnderstand:aMessage
@@ -137,6 +138,14 @@
 
 !ProtoObject methodsFor:'testing'!
 
+ifNil:aBlock
+    ^ self
+!
+
+ifNotNil:aBlockOrValue
+    ^ aBlockOrValue value
+!
+
 isBehavior
     "return true, if the receiver is describing another objects behavior.
      False is returned here - the method is only redefined in Behavior."
@@ -175,5 +184,9 @@
 !ProtoObject class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ProtoObject.st 10447 2009-06-14 13:09:55Z vranyj1 $'
+    ^ '$Id: ProtoObject.st 10482 2009-12-04 20:30:11Z vranyj1 $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.13 2009/12/01 19:59:38 cg Exp §'
 ! !