--- a/Parser.st	Tue May 02 18:52:18 2006 +0200
+++ b/Parser.st	Tue May 02 19:34:26 2006 +0200
@@ -7459,6 +7459,7 @@
             e := #(
                 (short           short          )
                 (long            long           )
+                (int             int            )
                 (ushort          unsignedShort  )
                 (ulong           unsignedLong   )
                 (double          double         )
@@ -7492,7 +7493,7 @@
     returnType := (typeFromSqueakTypeSpec value:cParser token).
     cParser nextToken.
     cParser tokenType = $* ifTrue:[
-        type := CType pointerType new baseType:type.
+        returnType := CType pointerType new baseType:returnType.
         cParser nextToken.
     ].
 
@@ -8507,7 +8508,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.493 2006-05-02 16:52:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.494 2006-05-02 17:34:26 cg Exp $'
 ! !
 
 Parser initialize!