--- a/Stream.st	Fri Jun 13 16:32:44 2003 +0200
+++ b/Stream.st	Fri Jun 13 20:42:11 2003 +0200
@@ -2160,8 +2160,8 @@
     |s c|
 
     [self atEnd
-     or:[(c := self peek) isAlphaNumeric]] whileFalse:[
-	self next 
+     or:[(c := self peek) isLetterOrDigit]] whileFalse:[
+        self next 
     ].
 
     self atEnd ifTrue:[^ nil].
@@ -2170,8 +2170,8 @@
 
     [self atEnd not
      and:[(c := self peek) isLetterOrDigit]] whileTrue:[ 
-	s := s copyWith:c. 
-	self next 
+        s := s copyWith:c. 
+        self next 
     ].
 
     s size == 0 ifTrue:[^ nil].
@@ -2182,7 +2182,7 @@
 
      s := 'hello world 1234 foo1 foo2' readStream.
      [s atEnd] whileFalse:[
-	Transcript showCR:(s nextAlphaNumericWord).
+        Transcript showCR:(s nextAlphaNumericWord).
      ].
     "
 
@@ -2191,7 +2191,7 @@
 
      s := 'hello +++ #world ###123###abc### 1234 foo1 foo2' readStream.
      [s atEnd] whileFalse:[
-	Transcript showCR:(s nextAlphaNumericWord).
+        Transcript showCR:(s nextAlphaNumericWord).
      ].
     "
 
@@ -2532,7 +2532,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.111 2003-04-28 10:16:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.112 2003-06-13 18:42:11 cg Exp $'
 ! !
 
 Stream initialize!

--- a/Symbol.st	Fri Jun 13 16:32:44 2003 +0200
+++ b/Symbol.st	Fri Jun 13 20:42:11 2003 +0200
@@ -133,7 +133,6 @@
     ^ String new:size
 ! !
 
-
 !Symbol class methodsFor:'Compatibility-ST80'!
 
 tableSize
@@ -197,7 +196,6 @@
 ! !
 
 
-
 !Symbol methodsFor:'Compatibility-VW'!
 
 << catalogID
@@ -621,7 +619,7 @@
 isInfix
     "return true, if the receiver is a binary message selector"
 
-    ^ self first isAlphaNumeric not
+    ^ self first isLetterOrDigit not
 
     "
      #at:put: isInfix  
@@ -738,5 +736,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.72 2003-05-19 11:11:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.73 2003-06-13 18:42:00 cg Exp $'
 ! !