--- gforth/glocals.fs	1995/04/29 14:51:19	1.12
+++ gforth/glocals.fs	1995/10/07 17:38:15	1.13
@@ -475,7 +475,7 @@ forth definitions
 : definer! ( definer xt -- )
     \ gives the word represented by xt the behaviour associated with definer
     over 1 and if
-	does-code!
+	swap [ 1 invert ] literal and does-code!
     else
 	code-address!
     then ;