--- a/Object.st	Wed Jul 01 12:44:03 2009 +0200
+++ b/Object.st	Mon Jul 06 21:29:57 2009 +0200
@@ -673,6 +673,7 @@
 ! !
 
 
+
 !Object methodsFor:'accessing'!
 
 at:index
@@ -3449,37 +3450,6 @@
     "Modified: / 30.1.1998 / 14:04:01 / cg"
 ! !
 
-!Object methodsFor:'dependents-interests'!
-
-onChangeEvaluate:aBlock
-    "arrange for aBlock to be evaluated whenever the receiver changes."
-
-    |na selector|
-
-    na := aBlock numArgs.
-    na == 0 ifTrue:[
-        selector := #value
-    ] ifFalse:[
-        selector := #( #'value:' #'value:value:' #'value:value:value:') at:na
-    ].
-    ^ self onChangeSend:selector to:aBlock
-
-    "
-     |p b|
-
-     b := [Transcript showCR:' -> the point changed'].
-
-     p := Point new.
-     Transcript showCR:'interest in #foo:'.
-     p onChangeEvaluate:b.
-     p x:1.
-     Transcript showCR:'now changing #bar ... (expect no notification)'.
-     p changed:#bar.
-
-     p retractInterests.
-     p changed:#bar.
-    "
-! !
 
 !Object methodsFor:'dependents-st/v event simulation'!
 
@@ -6611,7 +6581,7 @@
 
     |s|
 
-    s := CharacterWriteStream on:(String basicNew:30).
+    s := CharacterWriteStream on:(String basicNew:40).     "allocate at least 46 bytes for fast UUID conversion"
     self printOn:s.
     ^ s contents.
 
@@ -9257,7 +9227,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.631 2009-05-28 06:02:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.632 2009-07-06 19:29:57 stefan Exp $'
 ! !
 
 Object initialize!