--- gforth/ec/mirror.fs	1998/05/02 21:34:06	1.1
+++ gforth/ec/mirror.fs	1999/05/20 13:38:29	1.3
@@ -12,9 +12,10 @@ and code-fields...) into rom and copy it
 \ save ram area
 
 >rom
-unlock sramdp @ lock		constant ram-start
-unlock ramdp @ sramdp @ - lock	constant ram-len
-variable ram-origin
+unlock ram-dictionary extent lock		
+Constant ram-len
+Constant ram-start
+Variable ram-origin
 ram-start ram-origin ram-len unlock tcmove lock 
 ram-len allot align
 >auto