diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas
index 2b1eee6dca..eb20392476 100644
--- a/compiler/pstatmnt.pas
+++ b/compiler/pstatmnt.pas
@@ -711,7 +711,7 @@ implementation
          else
            p:=nil;
          p:=cexitnode.create(p);
-         p.resulttype:=voidtype;
+         do_resulttypepass(p);
          exit_statement:=p;
       end;
 
@@ -1222,10 +1222,13 @@ implementation
 end.
 {
   $Log$
-  Revision 1.29  2001-05-04 15:52:04  florian
-    * some Delphi incompatibilities fixed:
-       - out, dispose and new can be used as idenfiers now
-       - const p = apointerype(nil); is supported now
+  Revision 1.30  2001-05-17 13:25:24  jonas
+    * fixed web bugs 1480 and 1481
+
+  Revision 1.29  2001/05/04 15:52:04  florian
+    * some Delphi incompatibilities fixed:
+       - out, dispose and new can be used as idenfiers now
+       - const p = apointerype(nil); is supported now
     + support for const p = apointertype(pointer(1234)); added
 
   Revision 1.28  2001/04/21 12:03:11  peter