ReadEvalPrintLoop.st
changeset 22740 1511ab65828f
parent 22739 d39b0b0008ce
child 22741 21d4356fc5a8
--- a/ReadEvalPrintLoop.st	Sun May 06 18:17:33 2018 +0200
+++ b/ReadEvalPrintLoop.st	Sun May 06 18:19:11 2018 +0200
@@ -1055,8 +1055,8 @@
                                         compile:true.
                         ].    
                         doPrint ifTrue:[
-                            'Return value: ' print.
-                            value printOn:output. output cr.
+                            '  < Return value: ' print.
+                            value displayString printOn:output. output cr.
                             output flush.
                         ].
                     ] ifFalse:[    
@@ -1066,8 +1066,8 @@
                         ].
                         doPrint ifTrue:[
                             value isVoid ifFalse:[
-                                'Return value: ' print.
-                                value printOn:output. output cr.
+                                '  < Return value: ' print.
+                                value displayString printOn:output. output cr.
                                 output flush.
                             ].
                         ].