--- a/Scanner.st	Sat Feb 07 16:40:12 2015 +0100
+++ b/Scanner.st	Sat Feb 07 16:40:38 2015 +0100
@@ -3486,7 +3486,7 @@
                 delimiter isEmpty ifTrue:[
                     self parseError:'invalid delimiter in comment'
                 ].
-                ((delimiter first isLetter or:[ delimiter first == $_ ])
+                ((delimiter first isLetterOrUnderline)
                 and:[delimiter from:2 conform:[:ch | ch isLetterOrDigit]]) ifFalse:[
                     "/ treat as regular comment
                     commentType := #regularComment.
@@ -3725,11 +3725,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.330 2015-02-07 15:40:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.330 2015-02-07 15:40:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $'
 ! !