--- gforth/bubble.fs	1995/11/13 18:38:35	1.1
+++ gforth/bubble.fs	1999/05/17 13:51:31	1.2
@@ -9,6 +9,8 @@
 \ MM forth2c doesn't have it !
 : mybounds  over + swap ;
 
+1 cells Constant cell
+
 variable seed ( -- addr)
 
 : initiate-seed ( -- )  74755 seed ! ;