--- a/Dictionary.st	Sat May 18 15:57:24 1996 +0200
+++ b/Dictionary.st	Sat May 18 16:00:53 1996 +0200
@@ -1053,9 +1053,9 @@
     |isEmpty|
 
     thisContext isRecursive ifTrue:[
-	Transcript showCr:'Error: storeOn: of self referencing collection.'.
-	aStream nextPutAll:'#recursive'.
-	^ self
+        Transcript showCR:'Error: storeOn: of self referencing collection.'.
+        aStream nextPutAll:'#recursive'.
+        ^ self
     ].
 
     aStream nextPutAll:'('.
@@ -1063,12 +1063,12 @@
     aStream nextPutAll:' new'.
     isEmpty := true.
     self keysAndValuesDo:[:key :value |
-	aStream nextPutAll:' at:'.
-	key storeOn:aStream.
-	aStream nextPutAll:' put:'.
-	value storeOn:aStream.
-	aStream nextPutAll:'; '.
-	isEmpty := false
+        aStream nextPutAll:' at:'.
+        key storeOn:aStream.
+        aStream nextPutAll:' put:'.
+        value storeOn:aStream.
+        aStream nextPutAll:'; '.
+        isEmpty := false
     ].
     isEmpty ifFalse:[aStream nextPutAll:' yourself'].
     aStream nextPut:$)
@@ -1095,6 +1095,8 @@
      d at:2 put:d.
      d storeOn:Transcript
     "
+
+    "Modified: 18.5.1996 / 15:42:03 / cg"
 !
 
 stringWith:aSelector
@@ -1300,5 +1302,5 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.40 1996-04-25 16:18:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.41 1996-05-18 14:00:09 cg Exp $'
 ! !