--- gforth/assert.fs	1995/11/07 18:06:32	1.5
+++ gforth/assert.fs	1998/12/08 22:02:35	1.7
@@ -1,6 +1,6 @@
 \ assertions
 
-\ Copyright (C) 1995 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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?