--- 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.