Win32OperatingSystem.st
changeset 15369 4c2d17d8fa1a
parent 15339 c701f431b3f6
child 15377 3ea5dc7aae24
--- a/Win32OperatingSystem.st	Tue Jun 04 15:52:42 2013 +0200
+++ b/Win32OperatingSystem.st	Tue Jun 04 15:59:50 2013 +0200
@@ -6933,9 +6933,11 @@
 	Process32First( hProcessSnap, & pe32 );
 
 	do {
+	    OBJ f;
+
 	    st_perProc = __SSEND0(@global(OSProcess), @symbol(new), 0);
-
-	    __SSEND1(st_perProc, @symbol(commandLine:), 0, __MKSTRING(pe32.szExeFile) );
+	    f = __MKSTRING(pe32.szExeFile);
+	    __SSEND1(st_perProc, @symbol(commandLine:), 0, f );
 	    __SSEND1(st_perProc, @symbol(pid:), 0, __mkSmallInteger(pe32.th32ProcessID) );
 	    __SSEND1(st_perProc, @symbol(parentPid:), 0, __mkSmallInteger(pe32.th32ParentProcessID) );
 
@@ -17133,15 +17135,15 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Win32OperatingSystem.st,v 1.464 2013-05-28 12:44:56 cg Exp $'
+    ^ '$Id: Win32OperatingSystem.st,v 1.465 2013-06-04 13:59:50 cg Exp $'
 
 ! !