--- a/DeviceWorkstation.st	Fri Aug 04 14:42:07 2000 +0200
+++ b/DeviceWorkstation.st	Fri Aug 04 18:44:55 2000 +0200
@@ -6434,16 +6434,20 @@
     o := self getCopyBuffer.
     s := o.
     o isString ifFalse:[
-	o isNil ifTrue:[
-	    s := ''
-	] ifFalse:[
-	    (o isStringCollection) ifTrue:[
-		s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
-		s := s string.
-	    ] ifFalse:[
-		s := o storeString
-	    ]
-	]
+        o isNil ifTrue:[
+            s := ''
+        ] ifFalse:[
+            (o isStringCollection) ifTrue:[
+                s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
+                s := s string.
+            ] ifFalse:[
+                Collection recursiveCollectionStoreStringSignal handle:[:ex |
+                   s := ''
+                ] do:[
+                   s := o storeString
+                ]
+            ]
+        ]
     ].
     ^ s
 
@@ -7130,6 +7134,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.376 2000-08-02 23:07:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.377 2000-08-04 16:44:55 tm Exp $'
 ! !
 DeviceWorkstation initialize!