--- a/SerialPort.st	Mon Jun 30 11:07:57 2008 +0200
+++ b/SerialPort.st	Fri Jul 04 17:32:26 2008 +0200
@@ -227,16 +227,21 @@
 !
 
 setPortName:portNameArg
+    (portNameArg startsWith:'C') ifTrue:[
+        "/ add special port name to support COM ports > 9
+        portName := '\\.\', portNameArg.
+        ^ self
+    ].
     portName := portNameArg.
 !
 
 setPortName:portNameArg
-	baudRate:baudRateOrNil stopBitsType:stopBitsTypeOrNil
-	parityType:parityTypeOrNil dataBits:dataBitsOrNil
-	inFlowCtrlType:inFlowCtrlTypeOrNil outFlowCtrlType:outFlowCtrlTypeOrNil
-	xOnChar:xOnCharOrNil xOffChar:xOffCharOrNil
+        baudRate:baudRateOrNil stopBitsType:stopBitsTypeOrNil
+        parityType:parityTypeOrNil dataBits:dataBitsOrNil
+        inFlowCtrlType:inFlowCtrlTypeOrNil outFlowCtrlType:outFlowCtrlTypeOrNil
+        xOnChar:xOnCharOrNil xOffChar:xOffCharOrNil
 
-    portName := portNameArg.
+    self setPortName:portNameArg.
     baudRate := baudRateOrNil.
     stopBitsType := stopBitsTypeOrNil.
     parityType := parityTypeOrNil.
@@ -636,5 +641,5 @@
 !SerialPort class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.9 2007-10-24 15:20:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SerialPort.st,v 1.10 2008-07-04 15:32:26 ab Exp $'
 ! !