--- a/SerialPort.st	Thu Feb 02 18:19:40 2006 +0100
+++ b/SerialPort.st	Thu Feb 02 18:20:17 2006 +0100
@@ -135,6 +135,15 @@
     serialPort cr.
     serialPort close.
                                                                         [exEnd]
+
+                                                                        [exBegin]
+    |serialPort|
+
+    serialPort := SerialPort new setPortName:'COM5'.
+    serialPort open.
+    Transcript showCR:(serialPort nextAvailable:100).
+    serialPort close.
+                                                                        [exEnd]
 "
 ! !
 
@@ -586,5 +595,5 @@
 !SerialPort class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.3 2006-02-02 17:19:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.4 2006-02-02 17:20:17 cg Exp $'
 ! !