ReadEvalPrintLoop.st
changeset 16119 0569af2e9e55
parent 16118 4c4d8b9222bc
child 16133 dc573e06581e
--- a/ReadEvalPrintLoop.st	Sat Feb 22 21:18:36 2014 +0100
+++ b/ReadEvalPrintLoop.st	Sat Feb 22 22:52:12 2014 +0100
@@ -501,6 +501,7 @@
                         ].
                         error cr.
                     ].
+                    Workspace workspaceVariableAt:'_$$' put:value.
                 ].
             ].
         ].
@@ -565,10 +566,10 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.48 2014-02-22 20:18:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.49 2014-02-22 21:52:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.48 2014-02-22 20:18:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.49 2014-02-22 21:52:12 cg Exp $'
 ! !