--- a/DeviceWorkstation.st	Tue May 05 22:59:21 2015 +0200
+++ b/DeviceWorkstation.st	Wed May 06 19:10:29 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -3354,15 +3356,17 @@
 
     s := aString ? ''.
     s isString ifFalse:[
-	s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
+        s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
     ].
 
     viewID := aView id.
     viewID notNil ifTrue:[ "/ if the view is not already closed
-	"/ for now - should add support to pass emphasis information too
-	s := s string.
-	self setClipboardText:s owner:viewID.
-    ]
+        "/ TODO: should add support to pass emphasis information too
+        s := s string.
+        self setClipboardText:s owner:viewID.
+    ] ifFalse:[
+        Transcript showCR:'DeviceWorkstation [warning]: setClipboardText - view has no id; selection only kept locally'
+    ].
 !
 
 setCopyBuffer:something
@@ -8437,11 +8441,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.628 2015-02-10 12:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.629 2015-05-06 17:10:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.628 2015-02-10 12:53:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.629 2015-05-06 17:10:29 cg Exp $'
 ! !