--- a/UndefinedObject.st	Fri Jan 26 17:06:10 2001 +0100
+++ b/UndefinedObject.st	Mon Jan 29 14:55:40 2001 +0100
@@ -564,33 +564,41 @@
 ifNil:aBlockOrValue
     "return myself, or the result from evaluating the argument, if I am nil.
      This is much like #?, but sends #value to the argument in case of a nil
-     receiver."
+     receiver.
+     Notice:
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ aBlockOrValue value
-
 !
 
 ifNil:nilBlockOrValue ifNotNil:notNilBlockOrValue
     "return the value of the first arg, if I am nil,
-     the result from evaluating the 2nd argument, if I am not nil"
+     the result from evaluating the 2nd argument, if I am not nil.
+     Notice:
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ nilBlockOrValue value
-
 !
 
 ifNotNil:aBlockOrValue
-    "return myself if nil, or the result from evaluating the argument, if I am not nil"
+    "return myself if nil, or the result from evaluating the argument, if I am not nil.
+     Notice:
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ self
-
 !
 
 ifNotNil:notNilBlockOrValue ifNil:nilBlockOrValue
     "return the value of the 2nd arg, if I am nil,
-     the result from evaluating the 1st argument, if I am not nil"
+     the result from evaluating the 1st argument, if I am not nil.
+     Notice:
+        This method is open coded (inlined) by the compiler(s)
+        - redefining it may not work as expected."
 
     ^ nilBlockOrValue value
-
 !
 
 isLiteral
@@ -631,6 +639,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.48 2000-12-13 16:53:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.49 2001-01-29 13:55:40 cg Exp $'
 ! !
 UndefinedObject initialize!