diff --git a/scsh/irix/netconst.scm b/scsh/irix/netconst.scm
index e6d6737..a448ae6 100644
--- a/scsh/irix/netconst.scm
+++ b/scsh/irix/netconst.scm
@@ -23,8 +23,8 @@
 (define address-family/internet 2)	; internetwork: UDP, TCP, etc.
 
 ;;; SOCKET TYPES -- <sys/socket.h>
-(define socket-type/stream 1)		; stream socket 
-(define socket-type/datagram 2)		; datagram socket
+(define socket-type/stream 2)		; stream socket 
+(define socket-type/datagram 1)		; datagram socket
 (define socket-type/raw 3)		; raw-protocol interface
 ;;(define socket-type/rdm 4)		; reliably-delivered message
 ;;(define socket-type/seqpacket 5)      ; sequenced packet stream
diff --git a/scsh/solaris/netconst.scm b/scsh/solaris/netconst.scm
index 24306af..845e94e 100644
--- a/scsh/solaris/netconst.scm
+++ b/scsh/solaris/netconst.scm
@@ -23,8 +23,8 @@
 (define address-family/internet 2)	; internetwork: UDP, TCP, etc.
 
 ;;; SOCKET TYPES -- <sys/socket.h>
-(define socket-type/stream 1)		; stream socket 
-(define socket-type/datagram 2)		; datagram socket
+(define socket-type/stream 2)		; stream socket 
+(define socket-type/datagram 1)		; datagram socket
 (define socket-type/raw 3)		; raw-protocol interface
 ;;(define socket-type/rdm 4)		; reliably-delivered message
 ;;(define socket-type/seqpacket 5)      ; sequenced packet stream