--- gforth/assert.fs	1995/11/07 18:06:32	1.5
+++ gforth/assert.fs	1997/07/31 16:17:06	1.6
@@ -51,7 +51,7 @@ variable assert-level ( -- a-addr ) \ gf
 : (endassert) ( flag -- ) \ gforth-internal
     \ inline argument sourcepos
     if
-	r> sourcepos drop + >r EXIT
+	r> sourcepos %size + >r EXIT
     else
 	r> print-sourcepos ." : failed assertion"
 	true abort" assertion failed" \ !! or use a new throw code?