diff -urN parrot/classes/genclass.pl parrot-modified/classes/genclass.pl
--- parrot/classes/genclass.pl	Sun Sep  7 14:37:24 2003
+++ parrot-modified/classes/genclass.pl	Sun Sep  7 13:19:44 2003
@@ -38,7 +38,7 @@
     my ($retval, $methname, $args) = @{$_};
 
     print "    $retval $methname ($args) {\n";
-    f($retval !~ /void/) {
+    if($retval !~ /void/) {
         print "        return ($retval)0;\n";
     }
     print "    }\n\n";