LazyValue.st
changeset 5032 fe353b8a8223
parent 4798 4d94e6a27e21
child 5046 9b2d073d0573
--- 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'!