--- a/Parser.st	Tue May 02 18:35:48 2006 +0200
+++ b/Parser.st	Tue May 02 18:52:18 2006 +0200
@@ -7523,8 +7523,9 @@
             self nextToken
         ]
     ].
-
-    (cParser tokenType == #Identifier and:[cParser token = #module]) ifTrue:[
+    cParser nextToken.
+
+    (cParser tokenType == #Identifier and:[cParser token = 'module' or:[cParser token = 'module:']]) ifTrue:[
         cParser nextToken.
         cParser tokenType ~~ $: ifTrue:[
             self ignorableParseError:'Colon expected'.
@@ -8506,7 +8507,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.492 2006-04-27 16:44:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.493 2006-05-02 16:52:18 cg Exp $'
 ! !
 
 Parser initialize!