--- a/GDBMIPrinter.st	Tue Feb 26 09:27:50 2019 +0000
+++ b/GDBMIPrinter.st	Wed Mar 13 12:20:32 2019 +0000
@@ -111,12 +111,11 @@
     "Modified: / 21-10-2018 / 08:06:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-printCString: aString
+printCEscapedString: aString
     "
-    c-string → ''' seven-bit-iso-c-string-content '''
+    seven-bit-iso-c-string-content
     "
     | start stop |
-    stream nextPut: $".
     start := 1.
     [ start <= aString size ] whileTrue:[ 
         | char |
@@ -124,7 +123,6 @@
         [ 
           stop > aString size ifTrue:[ 
             stream nextPutAll:aString startingAt: start to: stop - 1.
-            stream nextPut: $".   
             ^ self.
           ].
           char := aString at: stop. 
@@ -134,9 +132,20 @@
         self printCEscapedCharacter: char.
         start := stop.
     ].
+
+    "Created: / 13-03-2019 / 12:12:42 / jv"
+!
+
+printCString: aString
+    "
+    c-string → ''' seven-bit-iso-c-string-content '''
+    "
+    stream nextPut: $".
+    self printCEscapedString: aString.
     stream nextPut: $".
 
     "Created: / 11-07-2017 / 22:05:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-03-2019 / 12:13:10 / jv"
 !
 
 printCommand: aGDBCommand
@@ -160,13 +169,14 @@
     aGDBCLICommand token notNil ifTrue:[ 
         aGDBCLICommand token printOn: stream.
     ].
-    stream nextPutAll: aGDBCLICommand value.
+    self printCEscapedString: aGDBCLICommand value.
     aGDBCLICommand runOnBackground ifTrue:[ 
         stream space; nextPut:$&  
     ].
 
     "Created: / 11-07-2017 / 21:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-01-2019 / 21:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-03-2019 / 12:15:36 / jv"
 !
 
 printCommandMI: aGDBMICommand
@@ -280,3 +290,10 @@
     "Created: / 11-07-2017 / 22:42:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBMIPrinter class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+