--- a/GDBMITrace.st	Sun Oct 07 08:31:38 2018 +0100
+++ b/GDBMITrace.st	Thu Oct 11 09:55:43 2018 +0200
@@ -27,20 +27,6 @@
 	category:'GDB-Private-MI Trace'
 !
 
-Object subclass:#Command
-	instanceVariableNames:'string'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:GDBMITrace
-!
-
-Object subclass:#Response
-	instanceVariableNames:'string'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:GDBMITrace
-!
-
 !GDBMITrace class methodsFor:'documentation'!
 
 copyright
@@ -163,16 +149,12 @@
 
 !GDBMITrace methodsFor:'recording'!
 
-<<< aString
-    self add: (Response new string: aString)
-
-    "Created: / 24-06-2014 / 00:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+<<< aString 
+    self add:(GDBMITraceResponseRecord new string:aString)
 !
 
->>> aString
-    self add: (Command new string: aString)
-
-    "Created: / 24-06-2014 / 00:35:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+>>> aString 
+    self add:(GDBMITraceCommandRecord new string:aString)
 ! !
 
 !GDBMITrace methodsFor:'saving & restoring'!
@@ -211,75 +193,3 @@
     "Created: / 23-06-2014 / 23:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!GDBMITrace::Command methodsFor:'accessing'!
-
-string
-    ^ string
-!
-
-string:something
-    string := something.
-! !
-
-!GDBMITrace::Command methodsFor:'printing & storing'!
-
-printOn:aStream
-    "append a printed representation if the receiver to the argument, aStream"
-
-    aStream nextPutLine: '>>>'.
-    string printOn: aStream.
-    aStream cr.
-
-    "Modified: / 24-06-2014 / 00:09:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!GDBMITrace::Command methodsFor:'testing'!
-
-isCommand
-    ^ true
-
-    "Created: / 24-06-2014 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isResponse
-    ^ false
-
-    "Created: / 24-06-2014 / 00:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!GDBMITrace::Response methodsFor:'accessing'!
-
-string
-    ^ string
-!
-
-string:something
-    string := something.
-! !
-
-!GDBMITrace::Response methodsFor:'printing & storing'!
-
-printOn:aStream
-    "append a printed representation if the receiver to the argument, aStream"
-
-    aStream nextPutLine: '<<<'.
-    string printOn: aStream.
-    aStream cr.
-
-    "Modified: / 24-06-2014 / 00:08:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!GDBMITrace::Response methodsFor:'testing'!
-
-isCommand
-    ^ false
-
-    "Created: / 24-06-2014 / 00:41:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-isResponse
-    ^ true
-
-    "Created: / 24-06-2014 / 00:41:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-