--- a/DeviceWorkstation.st	Fri Aug 04 18:44:55 2000 +0200
+++ b/DeviceWorkstation.st	Fri Aug 04 18:58:24 2000 +0200
@@ -6441,7 +6441,7 @@
                 s := o asStringWithCRsFrom:1 to:(o size) compressTabs:false withCR:false.
                 s := s string.
             ] ifFalse:[
-                Collection recursiveCollectionStoreStringSignal handle:[:ex |
+                Object recursiveStoreStringSignal handle:[:ex |
                    s := ''
                 ] do:[
                    s := o storeString
@@ -7134,6 +7134,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.377 2000-08-04 16:44:55 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.378 2000-08-04 16:58:24 tm Exp $'
 ! !
 DeviceWorkstation initialize!