Index: src/interpret.c
===================================================================
--- src/interpret.c	(revision 2253)
+++ src/interpret.c	(working copy)
@@ -8450,6 +8450,8 @@
          * corrected.
          */
         warnf("Missing 'return <value>' statement.\n");
+        /* Warn only once per missing return and program. */
+        PUT_UINT8(pc-1, F_RETURN0);
         /* FALLTHROUGH */
 
     CASE(F_RETURN0);                /* --- return0             --- */