--- a/ReadEvalPrintLoop.st Thu Nov 03 22:38:29 2016 +0100
+++ b/ReadEvalPrintLoop.st Thu Nov 03 22:51:16 2016 +0100
@@ -319,8 +319,10 @@
what notNil ifTrue:[
(what startsWith:'var') ifTrue:[
Workspace notNil ifTrue:[
- Workspace workspaceVariables keysAndValuesDo:[:nm :h |
- errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:h value printString.
+ Workspace workspaceVariables keys asOrderedCollection sort do:[:nm |
+ |holder|
+ holder := Workspace workspaceVariables at:nm.
+ errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString.
].
].
^ self.