Index: source/ui/dochdl/swdtflvr.cxx
===================================================================
RCS file: /cvs/sw/sw/source/ui/dochdl/swdtflvr.cxx,v
retrieving revision 1.120
diff -u -r1.120 swdtflvr.cxx
--- source/ui/dochdl/swdtflvr.cxx	7 Jul 2008 07:25:25 -0000	1.120
+++ source/ui/dochdl/swdtflvr.cxx	23 Feb 2009 12:34:35 -0000
@@ -569,8 +570,13 @@
 			break;
 
 		case SOT_FORMAT_STRING:
-			bOK = SetObject( pClpDocFac->GetDoc(),
+			{
+				SwDoc *pDoc = pClpDocFac->GetDoc();
+				ASSERT( pDoc, "Document not found" );
+				pDoc->SetClipBoard( true );
+				bOK = SetObject( pDoc,
 								SWTRANSFER_OBJECTTYPE_STRING, rFlavor );
+			}
 			break;
 
 		case SOT_FORMAT_RTF: