--- a/ReadEvalPrintLoop.st	Thu Feb 20 08:44:35 2014 +0100
+++ b/ReadEvalPrintLoop.st	Thu Feb 20 08:49:46 2014 +0100
@@ -302,6 +302,9 @@
     lineStream skipSeparators.
     what := lineStream nextAlphaNumericWord.
     (what startsWith:'var') ifTrue:[
+        Workspace workspaceVariables keysAndValuesDo:[:nm :h |
+            errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:h value.
+        ].
         ^ self.
     ].
     (what startsWith:'proc') ifTrue:[
@@ -550,10 +553,10 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.44 2014-02-20 07:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.45 2014-02-20 07:49:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.44 2014-02-20 07:44:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.45 2014-02-20 07:49:46 cg Exp $'
 ! !