--- a/SerialPort.st	Thu Oct 18 12:45:40 2007 +0200
+++ b/SerialPort.st	Wed Oct 24 17:20:57 2007 +0200
@@ -618,9 +618,11 @@
 !SerialPort methodsFor:'printing & storing'!
 
 printOn:aStream
-    aStream nextPutAll:'SerialPort(baudRate='.
+    aStream nextPutAll:'SerialPort('.
+    portName printOn:aStream.
+    aStream nextPut:$/.
     baudRate printOn:aStream.
-    aStream nextPutAll:')'.
+    aStream nextPut:$).
 ! !
 
 !SerialPort methodsFor:'queries'!
@@ -634,5 +636,5 @@
 !SerialPort class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.8 2007-02-12 11:31:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.9 2007-10-24 15:20:57 stefan Exp $'
 ! !