--- a/GDBCLICommand.st	Wed Jul 12 16:08:20 2023 +0100
+++ b/GDBCLICommand.st	Wed Jul 12 16:10:07 2023 +0100
@@ -306,7 +306,7 @@
 
         i := value indexOfSeparator.
         i ~~ 0 ifTrue:[
-            operation := value copyTo: i - 1.
+            operation := value copyFrom: 1 to: i - 1.
         ] ifFalse:[ 
             operation := value.
         ].
@@ -358,7 +358,7 @@
         i := i - 1.
     ].
     c == $& ifTrue:[ 
-        value := aString copyTo: i - 1.
+        value := aString copyFrom: 1 to: i - 1.
         runOnBackground := true.
     ] ifFalse:[ 
         value := aString.
@@ -366,6 +366,7 @@
     ].
 
     "Modified (format): / 28-01-2019 / 23:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-07-2023 / 15:30:12 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !GDBCLICommand methodsFor:'testing'!

--- a/GDBDebugger.st	Wed Jul 12 16:08:20 2023 +0100
+++ b/GDBDebugger.st	Wed Jul 12 16:10:07 2023 +0100
@@ -1106,7 +1106,7 @@
                 dot ~~ 0 ifTrue:[ 
                     | bpt |    
 
-                    bpt := self breakpointForId: (new number copyTo: dot - 1).
+                    bpt := self breakpointForId: (new number copyFrom: 1 to: dot - 1).
                     "/ See GDBBreakpoint >> locations...
                     (bpt locations includes: bpt) ifTrue:[ 
                         bpt locations: (Array with: new)
@@ -1121,7 +1121,7 @@
     "Created: / 06-07-2017 / 16:28:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-01-2018 / 23:11:52 / jv"
     "Modified: / 07-02-2019 / 15:14:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 22-05-2021 / 16:33:26 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 12-07-2023 / 15:30:21 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 onCmdParamChangedEvent: aGDBCmdParamChangedEvent