--- a/LazyValue.st Tue Jun 25 09:03:59 2019 +0200
+++ b/LazyValue.st Tue Jun 25 10:19:07 2019 +0200
@@ -521,14 +521,14 @@
!
displayString
- |s|
+ "defined here, because I inherit from nobody"
- "/ attention: TextStream is not present in ultra-mini standalone apps
- s := TextStream isNil
- ifTrue:['' writeStream]
- ifFalse:[TextStream on:(String new:32)].
- self displayOn:s.
- ^ s contents
+ ^ (Object compiledMethodAt:#displayString)
+ valueWithReceiver:self
+ arguments:nil
+ selector:#displayString
+
+ "Modified: / 25-06-2019 / 09:54:18 / Claus Gittinger"
! !
!LazyValue methodsFor:'private access'!