--- a/DeviceWorkstation.st	Sun Sep 01 01:37:23 2013 +0200
+++ b/DeviceWorkstation.st	Sun Sep 01 12:08:52 2013 +0200
@@ -3168,7 +3168,15 @@
 copyBufferAsString
     "return my current selection as a string"
 
-    ^ self class bufferAsString:self getCopyBuffer.
+    |copyBufferContents s|
+
+    copyBufferContents := self getCopyBuffer.
+    copyBufferContents isString ifFalse:[
+        s := copyBufferContents class nameWithArticle.
+        Transcript showCR:'invalid object in copyBuffer: ',s.
+        ^ s.
+    ].
+    ^ self class bufferAsString:copyBufferContents.
 !
 
 getClipboardObjectFor:drawableId
@@ -8248,11 +8256,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.590 2013-08-31 23:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.591 2013-09-01 10:08:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.590 2013-08-31 23:37:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.591 2013-09-01 10:08:52 cg Exp $'
 ! !