--- a/tests/GDBDebuggeesResource.st	Mon Jan 08 19:43:49 2018 +0000
+++ b/tests/GDBDebuggeesResource.st	Thu Jan 11 23:53:06 2018 +0000
@@ -5,7 +5,7 @@
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
-version 2.1 of the License. 
+version 2.1 of the License.
 
 This library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -22,11 +22,18 @@
 
 TestResource subclass:#GDBDebuggeesResource
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'DotExe'
 	poolDictionaries:''
 	category:'GDB-Core-Tests'
 !
 
+!GDBDebuggeesResource class methodsFor:'initialization'!
+
+initialize
+    DotExe := OperatingSystem isMSWINDOWSlike ifTrue:['.exe'] ifFalse:['']
+
+!
+
 !GDBDebuggeesResource class methodsFor:'documentation'!
 
 copyright
@@ -37,7 +44,7 @@
 This library is free software; you can redistribute it and/or
 modify it under the terms of the GNU Lesser General Public
 License as published by the Free Software Foundation; either
-version 2.1 of the License. 
+version 2.1 of the License.
 
 This library is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -69,28 +76,30 @@
 
 !GDBDebuggeesResource methodsFor:'accessing'!
 
-binaryFactorial1
+binary: aString
     | binary |
 
-    binary := (Smalltalk getPackageDirectoryForPackage:self class package) 
-            / 'c' / 'factorial1'.
+    binary := (Smalltalk getPackageDirectoryForPackage:self class package)
+            / 'c' / Smalltalk configuration / (aString , DotExe).
     self assert:binary exists.
     self assert:binary isExecutable.
     ^ binary pathName
 
-    "Created: / 28-02-2015 / 00:47:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-07-2017 / 11:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-binaryPressAnyKey 
-    | binary |
+binaryFactorial1
+    ^ self binary: 'factorial1'
 
-    binary := (Smalltalk getPackageDirectoryForPackage: self class package) / 'c' / 'press_any_key'.
-    self assert: binary exists.
-    self assert: binary isExecutable.
-    ^ binary pathName
+    "Created: / 28-02-2015 / 00:47:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-07-2017 / 11:52:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-01-2018 / 12:43:37 / jv"
+!
+
+binaryPressAnyKey
+    ^ self binary: 'press_any_key'.
 
     "Created: / 08-03-2015 / 07:24:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-01-2018 / 12:43:55 / jv"
 ! !
 
 !GDBDebuggeesResource class methodsFor:'documentation'!
@@ -100,3 +109,5 @@
     ^ '$Changeset: <not expanded> $'
 ! !
 
+
+GDBDebuggeesResource initialize!