diff -r 32467c3ce97d -r ab867dbe42dd DeviceWorkstation.st
--- a/DeviceWorkstation.st	Mon Oct 22 19:20:54 2012 +0200
+++ b/DeviceWorkstation.st	Mon Oct 22 20:07:32 2012 +0200
@@ -565,6 +565,39 @@
     ].
 ! !
 
+!DeviceWorkstation class methodsFor:'clipboard support'!
+
+bufferAsString:aBuffer
+    "aBuffer (my current selection) as a string"
+
+    aBuffer isString ifTrue:[
+        ^ aBuffer string.
+    ].
+
+    aBuffer isNil ifTrue:[
+        ^ ''
+    ].
+
+    aBuffer isStringCollection ifTrue:[
+        ^ aBuffer 
+            from:1
+            to:aBuffer size
+            asStringWith:Character cr
+            compressTabs:false
+            final:nil
+            withEmphasis:false.
+    ].
+
+    RecursiveStoreError handle:[:ex |
+       ^ ''
+    ] do:[
+       ^ aBuffer storeString
+    ]
+
+    "Created: / 13.2.1997 / 13:10:30 / cg"
+    "Modified: / 20.1.1998 / 14:11:01 / stefan"
+! !
+
 !DeviceWorkstation class methodsFor:'defaults'!
 
 defaultButtonPressTimeForMenu
@@ -3112,34 +3145,7 @@
 copyBufferAsString
     "return my current selection as a string"
 
-    |o|
-
-    o := self getCopyBuffer.
-    o isString ifTrue:[
-	^ o string.
-    ].
-
-    o isNil ifTrue:[
-	^ ''
-    ].
-
-    o isStringCollection ifTrue:[
-	^ o from:1
-	    to:o size
-	    asStringWith:Character cr
-	    compressTabs:false
-	    final:nil
-	    withEmphasis:false.
-    ].
-
-    RecursiveStoreError handle:[:ex |
-       ^ ''
-    ] do:[
-       ^ o storeString
-    ]
-
-    "Created: / 13.2.1997 / 13:10:30 / cg"
-    "Modified: / 20.1.1998 / 14:11:01 / stefan"
+    ^ self class bufferAsString:self getCopyBuffer.
 !
 
 getClipboardObjectFor:drawableId
@@ -8142,11 +8148,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.568 2012-07-12 16:43:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.568 2012-07-12 16:43:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!