--- a/WinWorkstation.st	Wed Jul 23 15:57:48 2008 +0200
+++ b/WinWorkstation.st	Wed Jul 23 16:06:42 2008 +0200
@@ -17290,7 +17290,7 @@
 
     "
     |string bytes externalAddress handle|
-    string := 'c:\pipo.net' asAsciiZ.
+    string := 'c:\pipo.net' , 0 asCharacter asString.
     bytes := string asByteArray.
     handle := Display primFindWindow: nil windowName: 'ST/X Launcher [FELIXM]' asAsciiZ.
     (handle isNil or:[handle address == 0]) ifTrue:[self halt.].
@@ -17302,15 +17302,16 @@
 
 sendCopyDataString: aString toWindowId: aWindowId
 
-    |aByteArray |
-
-    aByteArray := aString asAsciiZ asByteArray.
+    |aByteArray nullTerminatedString |
+
+    nullTerminatedString := aString , 0 asCharacter asString.
+    aByteArray := nullTerminatedString asByteArray.
     self sendCopyData: aByteArray toWindowId: aWindowId
 
     "
     |string externalAddress handle|
-    string := 'c:\pipo.net' asAsciiZ.
-    handle := Display primFindWindow: nil windowName: 'ST/X Launcher [FELIXM]' asAsciiZ.
+    string := 'c:\pipo.net' , 0 asCharacter asString.
+    handle := Display primFindWindow: nil windowName: 'WORK6 ST/X Launcher [FELIXM]' asAsciiZ.
     (handle isNil or:[handle address == 0]) ifTrue:[self halt.].
     externalAddress := handle asExternalAddress.
     Display setForegroundWindow: externalAddress.
@@ -18019,7 +18020,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.368 2008-07-23 13:57:48 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.369 2008-07-23 14:06:42 fm Exp $'
 ! !
 
 WinWorkstation initialize!