--- a/Scanner.st	Sat Feb 22 23:05:48 2014 +0100
+++ b/Scanner.st	Sun Feb 23 00:26:30 2014 +0100
@@ -3452,7 +3452,7 @@
                  Since this is non-standard, you loose compatibility with other Smalltalks, if you use it.
                 "
                 commentStream notNil ifTrue:[
-                    commentStream nextPutAll:'>>'
+                    commentStream nextPutAll:'<<'
                 ].
                 hereChar := source nextPeek.
                 delimiter := String streamContents:[:s | self skipToEndOfLineRememberingIn:s].
@@ -3479,7 +3479,7 @@
                 commentType := #delimiterComment.
             ] ifFalse:[
                 commentStream notNil ifTrue:[
-                    commentStream nextPut:$>
+                    commentStream nextPut:$<
                 ].
             ].
         ].
@@ -3498,9 +3498,7 @@
                 stillInComment := false.
 
                 [hereChar notNil and:[hereChar ~~ (Character doubleQuote)]] whileTrue:[
-                    hereChar isSeparator ifFalse:[
-                        anyNonBlank := true.
-                    ].
+                    hereChar isSeparator ifFalse:[ anyNonBlank := true ].
                     hereChar == (Character cr) ifTrue:[
                         lineNr := lineNr + 1.
                     ].
@@ -3544,7 +3542,7 @@
     ignoreWarnings ifFalse:[
         parserFlags warnAboutBadComments ifTrue:[
             anyNonBlank ifFalse:[
-                commentType ~~ #eolComment ifTrue:[
+                commentType == #regularComment ifTrue:[
                     self isDoIt ifFalse:[
                         self 
                             warning:'empty comment'
@@ -3667,11 +3665,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.310 2014-02-22 22:05:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.311 2014-02-22 23:26:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.310 2014-02-22 22:05:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.311 2014-02-22 23:26:30 cg Exp $'
 ! !