--- gforth/extend.fs	1997/03/27 13:31:01	1.23
+++ gforth/extend.fs	1997/05/29 19:42:13	1.24
@@ -84,7 +84,7 @@ decimal
 \ [COMPILE]                                             17may93jaw
 
 : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile
-    ' compile, ; immediate
+    comp' drop compile, ; immediate
 
 \ MARKER                                                17may93jaw