--- a/GDBParser.st	Thu Jun 12 01:21:45 2014 +0100
+++ b/GDBParser.st	Fri Jun 13 07:27:24 2014 +0100
@@ -299,28 +299,31 @@
     "Modified: / 02-06-2014 / 22:19:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-parseAsyncRecord: eventClass
+parseAsyncRecord: eventClassBase
     "
     async-output → async-class ( ',' result )* nl
     "
 
-    | type data |
+    | type eventClass data |
 
     type := self parseString.
+    eventClass := eventClassBase eventClassForType: type.
+
     data := Array streamContents:[ :s |
-	[ self peek == $, ] whileTrue:[
-	    self next.
-	    s nextPut: self parseResult.
-	]
+        [ self peek == $, ] whileTrue:[
+            self next.
+            s nextPut: self parseResult.
+        ]
     ].
     self parseNl.
 
     ^ eventClass new
-	type: type;
-	data: data;
-	yourself
+        type: type;
+        data: data;
+        yourself
 
     "Created: / 01-06-2014 / 23:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-06-2014 / 17:07:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBParser methodsFor:'parsing-misc'!