--- a/DeviceWorkstation.st	Thu Dec 05 19:28:33 2013 +0100
+++ b/DeviceWorkstation.st	Fri Dec 06 15:15:11 2013 +0100
@@ -589,8 +589,13 @@
     ].
 
     Error handle:[:ex |
-        Transcript showCR:'error while converting copyBuffer to string: ',ex description.
-       ^ ''
+        Transcript showCR:'error while converting copyBuffer to store string: ', ex description.
+        Error handle:[:ex |
+           Transcript showCR:'error while converting copyBuffer to print string: ', ex description.
+           ^ ''
+        ] do:[
+           ^ aBuffer printString
+        ]
     ] do:[
        ^ aBuffer storeString
     ]
@@ -8286,11 +8291,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.597 2013-12-04 09:55:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.598 2013-12-06 14:15:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.597 2013-12-04 09:55:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.598 2013-12-06 14:15:11 stefan Exp $'
 ! !