--- a/Dictionary.st	Thu Dec 05 09:52:02 2013 +0000
+++ b/Dictionary.st	Tue Dec 17 20:21:42 2013 +0100
@@ -1709,10 +1709,10 @@
     |isEmpty|
 
     thisContext isRecursive ifTrue:[
-	Object recursiveStoreStringSignal raiseRequestWith:self.
-	('Dictionary [error]: storeOn: of self referencing collection.') errorPrintCR.
-	aStream nextPutAll:'#recursive'.
-	^ self
+        RecursiveStoreError raiseRequestWith:self.
+        ('Dictionary [error]: storeOn: of self referencing collection.') errorPrintCR.
+        aStream nextPutAll:'#recursive'.
+        ^ self
     ].
 
     aStream nextPutAll:'('.
@@ -1720,12 +1720,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:$)
@@ -2090,10 +2090,10 @@
 !Dictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.116 2013-11-08 09:26:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.117 2013-12-06 14:41:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.116 2013-11-08 09:26:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.117 2013-12-06 14:41:16 stefan Exp $'
 ! !