--- gforth/extend.fs	1999/11/08 22:01:08	1.36
+++ gforth/extend.fs	2000/02/04 14:52:30	1.37
@@ -85,7 +85,12 @@ decimal
 \ [COMPILE]                                             17may93jaw
 
 : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile
-    comp' drop compile, ; immediate
+    comp' drop
+    dup [ comp' exit drop ] literal = if
+	execute \ EXIT has default compilation semantics, perform them
+    else
+	compile,
+    then ; immediate
 
 \ CONVERT                                               17may93jaw