--- a/GDBStoppedEvent.st	Mon Sep 22 09:59:28 2014 +0100
+++ b/GDBStoppedEvent.st	Mon Sep 22 23:48:10 2014 +0100
@@ -11,19 +11,27 @@
 
 gdbValueDescriptor
     ^ (super gdbValueDescriptor)
-        define: #'thread_id' as: Integer;
-        define: #'stopped_threads' as: String;
+        define: #'thread-id' as: Integer;
+        define: #'stopped-threads' as: String;
         yourself
 
     "Created: / 08-09-2014 / 22:13:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-09-2014 / 23:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBStoppedEvent methodsFor:'accessing'!
 
+stoppedThread
+    ^ threads detect:[:thread | thread id = thread_id ]
+
+    "Created: / 22-09-2014 / 23:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 stoppedThreadId
-    ^ thread_id
+    ^ thread_id asInteger
 
     "Created: / 08-09-2014 / 22:15:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-09-2014 / 23:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stoppedThreadIds