--- a/extensions.st	Wed Sep 24 09:46:37 2014 +0100
+++ b/extensions.st	Thu Sep 25 09:40:26 2014 +0100
@@ -24,6 +24,21 @@
     "Created: / 23-09-2014 / 22:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Magritte::MASingleOptionDescription methodsFor:'parsing-GDB/MI'!
+
+parseUsingGDBMIParser:aGDBMIParser
+    | stringValue |
+
+    stringValue := aGDBMIParser parseValueAsString.
+    (self propertyAt: #labels ifAbsent: [ #() ])
+        keysAndValuesDo:[ :key :value | value = stringValue ifTrue:[ ^ key ] ].
+    self options 
+        do:[:key | key printString = stringValue ifTrue:[ ^ key ] ].
+    MAReadError new signal: 'No option found for string value ''', stringValue , ''''.
+
+    "Created: / 25-09-2014 / 08:35:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Magritte::MAStringDescription methodsFor:'parsing-GDB/MI'!
 
 parseUsingGDBMIParser: aGDBMIParser