--- a/GDBMIParser.st	Tue Jan 30 09:18:36 2018 +0000
+++ b/GDBMIParser.st	Fri Feb 02 09:46:51 2018 +0000
@@ -405,17 +405,20 @@
     result-record → '^' result-class ( ',' result )* nl
     "
 
-    | command result descriptor propertyName propertyDescriptor propertyValue |
+    | command result status descriptor propertyName propertyDescriptor propertyValue |
 
     self expect: $^.
     result := GDBCommandResult new.
-    result status: self parseResultClass.
+    status := self parseResultClass.
+    result status: status.
     descriptor := GDBMAContainer new.
     (token notNil and:[ token2CommandMappingBlock notNil ]) ifTrue:[ 
         command := token2CommandMappingBlock value: token. 
         command notNil ifTrue:[
             result command: command.
-            descriptor := command resultDescription.        
+            status ~~ CommandStatusError ifTrue:[
+                descriptor := command resultDescription.        
+            ].
         ].
     ].
 
@@ -449,7 +452,7 @@
     ^ GDBCommandResultEvent new result: result.
 
     "Created: / 30-05-2014 / 09:52:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-03-2015 / 08:16:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-02-2018 / 09:35:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parseToken