--- a/GDBCommandResult.st	Tue Jun 06 09:37:04 2017 +0100
+++ b/GDBCommandResult.st	Mon Jun 12 10:00:44 2017 +0100
@@ -5,7 +5,7 @@
 GDBObject subclass:#GDBCommandResult
 	instanceVariableNames:'command status value'
 	classVariableNames:''
-	poolDictionaries:''
+	poolDictionaries:'GDBCommandStatus'
 	category:'GDB-Core-Commands'
 !
 
@@ -59,6 +59,20 @@
     "Modified: / 20-06-2014 / 09:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!GDBCommandResult methodsFor:'testing'!
+
+isDone
+    ^ status = CommandStatusDone
+
+    "Created: / 12-06-2017 / 09:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isError
+    ^ status = CommandStatusError
+
+    "Created: / 12-06-2017 / 09:36:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !GDBCommandResult class methodsFor:'documentation'!
 
 version_HG