--- a/Parser.st	Tue Mar 06 18:34:03 2007 +0100
+++ b/Parser.st	Tue Mar 13 15:37:32 2007 +0100
@@ -5998,7 +5998,7 @@
             self nextToken.
             (tokenType == $( ) ifFalse:[
                 self parseError:'''('' expected after #.' position:pos to:tokenPosition.
-                ^ self.
+                ^ #Error.
             ].
             self nextToken.
             self inArrayLiteral:true.
@@ -6573,7 +6573,7 @@
     (exprList == #Error) ifTrue:[ ^ #Error ].
 
     tokenType ~~ $} ifTrue:[
-        self parseError:'''}'' expected' position:tokenPosition.
+        self parseError:'"." or "}" expected' position:tokenPosition.
         ^ #Error
     ].
     self nextToken.
@@ -7590,6 +7590,8 @@
         lineNr:lineNr
         for: self.
 
+    functionOrType isNil ifTrue:[^ self].
+
     (functionOrType isKindOf:ExternalLibraryFunction) ifTrue:[
         self generateReturnOfType:functionOrType.
         ^ self
@@ -8820,7 +8822,7 @@
 
     CParser isNil ifTrue:[
         self generateTrapCodeForUnavailableCParser.
-        ^ self.
+        ^ nil.
     ].
 
     cParser := CParser new.
@@ -8991,7 +8993,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.543 2007-03-06 17:34:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.544 2007-03-13 14:37:32 cg Exp $'
 ! !
 
 Parser initialize!