--- a/GDBCommand.st	Thu Jul 06 07:54:57 2017 +0200
+++ b/GDBCommand.st	Tue Jul 11 23:37:04 2017 +0200
@@ -31,9 +31,19 @@
 !GDBCommand methodsFor:'converting'!
 
 asString
-    ^ self subclassResponsibility
+    ^ String streamContents: [ :s | (GDBMIPrinter on: s) printCommand: self ]
+
+    "Created: / 09-06-2014 / 18:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-07-2017 / 23:14:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
 
-    "Created: / 02-06-2014 / 23:34:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!GDBCommand methodsFor:'printing & storing'!
+
+printOn: aStream
+    super printOn: aStream.
+    aStream nextPut: $(; nextPutAll: self asString; nextPut:$)
+
+    "Created: / 11-07-2017 / 23:23:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBCommand methodsFor:'testing'!