--- a/GDBThreadGroup.st	Mon Mar 02 06:14:49 2015 +0000
+++ b/GDBThreadGroup.st	Mon Mar 02 07:11:47 2015 +0000
@@ -2,6 +2,8 @@
 
 "{ Package: 'jv:libgdbs' }"
 
+"{ NameSpace: Smalltalk }"
+
 GDBDebuggerObject subclass:#GDBThreadGroup
 	instanceVariableNames:'id type executable pid exit_code threads'
 	classVariableNames:''
@@ -80,6 +82,10 @@
 
     "Modified: / 06-09-2014 / 02:23:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 07-09-2014 / 21:42:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+type
+    ^ type
 ! !
 
 !GDBThreadGroup methodsFor:'event handling'!
@@ -140,12 +146,14 @@
 printOn:aStream
     "append a printed representation if the receiver to the argument, aStream"
 
-    aStream nextPutAll:'thread group '.
+    super printOn: aStream.
+    aStream nextPutAll:'(id '.
     id printOn:aStream.
-    aStream nextPutAll:' pid '.
+    aStream nextPutAll:', pid '.
     pid printOn:aStream.
+    aStream nextPutAll:')'.
 
-    "Modified: / 22-09-2014 / 01:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-03-2015 / 07:10:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBThreadGroup methodsFor:'private'!